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IDENTIFICATION 


PRODUCT CODE: AC=F138B-MC 
PRODUCT NAME: CJKDABO KTF11-AA MEMORY MANAGEMENT DIAGNOSTIC 


DATE: JUNE-1979 
MAINTAINER: DIAGNOSTIC PROGRAMMIMG 
AUTHOR: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
mp Et asec te FOR ANY ERRORS THAT MAY APPEAR IN THIS 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM 
AND CAN BE COPIED (WITH INCLUSION OF DIGITAL*S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED 
IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
THAT IS NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 


SEQ 0001 


MD=)1=C JKDA=B KTF11=AaQ MMU ; 
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PROGRAM HISTORY 


DATE REVISION 
12-JAN-79 A 
JUNE =79 B 


REASON FOR REVISION 


FIRST RELEASE 

SUBROUTINE FORMPA MODIFIED ERROR 
INFORMATION STORED IN RO,R2. THIS 
REVISION SAVES THE REGISTERS ON 
ENTRY TO THE ROUTINE AND RESTORES 
THEM ON EXIT. 


SEQ 0002 
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PROGRAM INFORMATION 


THIS PROGRAM WAS DESIGNED USING A ‘BOTTOM UP’' APPROACH 
STARTING WITH THE SMALLEST SEGMENT OF MEMORY MANAGMENT 
LOGIC POSSIBLE AND BUILDING TO COVER ALL OF THE LOGIC. 
THE DIAGNOSTIC WILL PROVIDE ENOUGH iNFORMATION SUCH THAT - 
BY DEDUCTION, THE FAILURE CAN BE ISOLATED TO A SMALL 
SEGMENT OF THE MEMORY MANAGEMENT LOGIC. 


THE PROGRAM BEGINS BY TESTING SOME OF THE INTERNAL CPU 
DATA AND ADDRESS PATHS AND ADDRESS DETECTION LOGIC, THEN 
WORKS OUTWARD THROUGH THE MEMORY MANAGEMENT REGISTERS. 
AFTER THE REGISTERS ARE FOUND TO BE USEABLE, RELOCATION 
(CONSTRUCTION OF PHYSICAL ADDRESSES FROM A VIRTUAL ADDRESS 
AND THE ASSOCIATED PAR/PDR INFORMATION) IS TESTED FOLLOWED 
BY TESTING OF THE ABORT AND STATUS SEGMENTS OF LOGIC. 
FINALLY, CHECKS OF SPECIAL ABORT SEQUENCES AND TESTING OF 
THE MFPI/MTPI INSTRUCTIONS ARE DONE. 


REQUIREMENTS 


A KDF11-A PROCESSOR WITH A MINIMUM OF 16K OF MEMORY 

AND A CONSOLE TERMINAL ARE REQUIRED TO RUN THE PROGRAM 
UNLESS THE PROGRAM IS RUNNING UNDER APT OR ACT IN WHICH 
CASE THE CONSOLE TERMINAL IS NOT NECESSARY. 


RELATED DOCUMENTS AND STANDARDS 


1 ACT11/XXDP PROGRAMMING SPECIFICATION 

2. STANDARD APT SYSTEM TO A PDP11 DIAGNOSTIC INTERFACE 
x DIAGNOSITC ENGINEERING STANDARDS AND CONVENTIGNS 

4. PDP11 MAINDEC SYSMAC PACKAGE 

3. XXDP USER'S MANUAL 


PRELIMINARY PROGRAMS 


BEFORE THIS MEMORY MANAGEMENT oe ee” IS RUN, THE 
FOLLOWING CPU DIAGNOSTIC SHOULD BE R 


CJKDB DCF11-AA CPU TESTS 
ALSO, ONE OF THE MAIN MEMORY DIAGNOSTICS SHOULD BE RUN 
TO SCAN AT LEAST THE FIRST 16K TO SEE THAT A PROGRAM 
CAN BE EXECUTED. 


OPERATING INSTRUCTIONS 


SEQ 0004 
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LOADING PROCEDURES 


THE PROGRAM IS SUPPLIED ON THE gw yl LOAD MEDiA. 
REFER TO THE XXDP USER'S MANUAL FOR FURTHER INFORMATION. 
FOR USE WITH ACT OR APT, REFER TO THEIR RESPECTIVE 
DOCUMENTS. _THE PROGRAM CAN ALSO BE DIRECTLY LOADED 
USING THE ABSOLUTE LOADER AND THE BINARY PAPER TAPE. 


STARTING PROCEDURES 


THE PROGRAM IS STARTED BY LOADING ADDRESS 200. SINCE THERE 
IS NO HARDWARE SWITCH REGISTER, THE PROGRAM WILL USe THE 
SOFTWARE SWITCH REGISTER AT LOCATION 176 (LOCATION 174 

WILL BE USED AS THE SOFTWARE DISPLAY REGISTER). IN THAT CASE 
THE PROGRAM WILL ASK FOR THE INITIAL SWITCH REGISTER 

VALUE BY TYPING ‘‘SWR= XXXXXX NEW= ‘* AFTER TYPING 

THE NAME OF THE PROGRAM (XXXXXX = THE OCTAL CONTENTS OF 
LOCATION 176). (SEE SECTION 2.4) 


CONTROL SWITCH SETTINGS 


SW15 100000 HALT ON ERROR 

THIS SWITCH WHEN SET WILL HALT 
THE PROCESSOR WHEN AN ERROR IS 
DETECTED AFTER THE ERROR MESSAGE 
HAS BEEN TYPED. PRESSING CONTINUE 
WILL RESUME TESTING (SEE SECTION 
3.1 ABOUT LOADING THE SWITCH REG 
BEFORE CONTINUING). 


SW14 040000 LOOP ON TEST 
THIS SWITCH WHEN SET WILL 
CAUSE THE PROGRAM TO LOOP ON 
THE CURRENT SUBTEST. 


SW13 020000 INHIBIT ERROR TYPEOUTS 
THIS SWITCH WHEN SET WILL 
INHIBIT THE TYPING OF ERROR 
MESSAGES. 


SW12 010000 INHIBIT TRACE TRAP 
: THIS SWITCH WHEN SET WILL 
INHIBIT T-BIT TRAPPING WHICH 
NORMALLY TAKES PLACE DURING 
EVERY OTHER PASS STARTING 
WITH THE THIRD PASS. 


SwW11 004000 INHIBIT SUBTEST ITERATIONS 
THIS SWITCH WHEN SET INHIBITS 
ITERATIONS OF EACH SUBTEST AFTER 


SEQ 0005 
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205 THE FIRST PASS. IF THIS SWITCH 
206 IS NOT SET, EACH SUBTEST IS RUN 
ait 200. TIMES. 
209 SW10 002000 BELL ON ERROR 
210 THIS SWITCH WHEN SET WILL RING 
211 THE CONSOLE TERMINAL BELL WHEN 
sé AN ERROR HAS BEEN DETECTED. 
214 Sw9 001000 LOOP ON ERROR 
215 THIS SWITCH WHEN SET WILL 
216 CAUSE THE PROGRAM TO LOOP ON THE 
217 FIRST FAILURE WHICH IS ENCOUNTERED 
Se EVEN IF THE FAILURE IS INTERMITTANT 
220 Sw8 000400 LOOP ON TEST IN SWR<7:0> 
221 THIS SWITCH WHEN SET WILL 
222 CAUSE THE PROGRAM TO LOOP ON THE 
225 TEST WHOSE TEST NUMBER IS SET 
Sse IN BITS 7-0 OF THE SWITCH REG. 
sso 2.4 LOADING THE SWITCH REGISTER 
399 
230 TO LOAD THE SOFTWARE SWITCH REG. WHILE THE PROGRAM IS 
231 RUNNING, A CONTROL G (*G) SHOULD BE TYPED ON THE CONSOLE 
232 TERMINAL. (THE ‘'SCOPE'’ AND ‘ERROR'' ROUTINES CHECK TO SEE 
233 IF A “G HAS BEEN TYPED.) THE ORIGINAL VALUE OF THE SOFTWARE 
See SWIICH REG. WILL BE REQUESTED AS MENTIONED IN SECTION 2.2. 
236 IN RESPONSE TO A “G OR AT THE BEGINNING OF THE PROGRAM, THE 
See PROGRAM WILL TYPE: 
444 SWR = XXXXXX NEW = 
241 WHERE *'XXXXXX'* IS THE CURRENT OCTAL CONTENTS OF LOC. 176. 
242 THE OPERATOR MAY THEN TYPE ANY ONE OF THE FOLLOWING: 
245 XXXXXX<CR> ONE TO SIX OCTAL DIGITS FOLLOWED By A 
244 CARRIAGE RETURN WHICH WILL BE LOADED 
245 AS THE NEW VALUE FOR THE SWITCH REG. 
246 <CR> JUST A <CR>, LEAVES THE SWITCH REG. 
247 AS IT IS. 
248 XXX*U A CONTROL-U (*U) WILL CAUSE ALL OF THE 
249 DIGITS TYPED SO FAR TO BE IGNORED. 
250 “~~ WILL CAUSE THE PROGRAM TO TYPE THE PRESENT 
251 TEST AND PASS NUMBERS, REQUEST A NEW VALUE 
252 FOR THE SWITCH REG., AND JUMP TO THE END- 
255 OF=PASS ROUTINE SO THE PROGRAM WILL GO DIRECTLY 
254 TO THE NEXT PASS WITH A NEW SW. REG. VALUE 
255 <ILL.CHAR> ANY CHARACTER TYPED WHICH IS NOT ANY OF THE 
256 ABOVE OR AN OCTAL DIGIT WILL CAUSE THE PROGRAM 
257 TO TYPE A *"?<CRLF>'* AND REACT AS THOUGH A 
$26 “U HAD BEEN TYPED. 


260 NOTE: RECOGNITION OF A *G MAY BE HAMPERED By 
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Bay ©, ey ieee were ie rip et EXECUTION OF A COUPLE ‘RESET'’ INSTRUCTIONS 
262 WITHIN THE PROGRAM, 
264 2.5 EXECUTION TIMES 
ao. ween ewe oeoonne 
267 THE RUN TIME FOR A SINGLE PASS WITH NO ITERATIONS 
S69 OR TRACE TRAPPING IS APPROXIMATELY 5 SECONDS. 
270 THE RUN TIME FOR A SINGLE PASS WITH ITERATIONS 
er AND TRACE TRAPPING ENABLED IS APPROXIMATELY 30 SECONDS. 
273 3.0 | ERROR INFORMATION 
BPG attra x eat ees, Re. | See 
275 
276 3.1 ERROR REPORTING PROCEDURES 
Be ee ee ee ee 
279 IF AN ERROR IS DETECTED, THE PROGRAM WILL TRAP TO THE 
230 ERROR HANDLING ROUTINE ($ERROR). THE VALUE OF BITS 
281 15,13,10, AND 9 IN THE SWITCH REGISTER ARE CONSIDERED 
282 IN REPORTING AN ERROR (SEE SECTION 2.3). THE 
285 ERROR INFORMATION WILL BE TYPED UNLESS SwW13 = 1. 
285 IF SW15 = 1, THE PROCESSOR WILL HALT AFTER THE ERROR IS 
286 REPORTED. If THE CONTENTS OF THE SOFTWARE SWITCH REGISTER 
287 ARE TO BE CHANGED, A “G SHOULD BE TYPED BEFORE PRESSING 
288 “CONTINUE’’ TO RESUME TESTING. 
290 IF SW9 = 1 (LOOP ON ERROR), THE PROGRAM WILL GO TO THE 
291 ADDRESS CONTAINED IN LOCATION "‘SLPERR''. AFTER REPORTING 
292 THE ERROR. ‘SLPERR'' IS SET BY EACH ‘'SCOPE'’ CALL AND IS 
293 SET DIRECTLY DURING SOME SUBTESTS TO PROVIDE THE SMALLEST 
294 LOOP FOR LOOPING ON ERROR. IF SW9 = 0, THE PROGRAM WILL 
295 RETURN TO THE INSTRUCTION FOLLOWING THE ERROR CALL. 
296 (SEE SECTION 5.3 FOR MORE ON ‘LOOP ON ERROR'’). 
298 3.2 INTERPRETING ERROR REPORTS 
500 oe ee cee 
301 EVERY ERROR REPORT TYPES THE NUMBER OF THE TEST IN WHICH 
302 THE ERROR TOOK PLACE (TESTNO) AND THE LOCATION OF THE 
303 ERROR CALL (ERRORPC). THESE TWO VALUES PINPOINT THE 
304 PLACE IN THE CODE THAT THE ERROR OCCURRED. BY REFERRING 
305 TO THE PROGRAM LISTING, THE OPERATOR CAN THEN READ THE 
306 COMMENTS ASSOCIATED WITH THAT PARTICULAR ERROR AND SUBTEST. 
307 A DESCRIPTION OF THE TEST FOUND IN THE PROGRAM LISTING 
30 WILL ALSO PROVIDE THE OPERATOR WITH INFORMATION ON THE LOGIC 
30 AND FUNCTIONS BEING TESTED. 
31 EVERY ERROR REPORT ALSO TYPES AN ERROR MESSAGE 


BEEN DETECTED. 


BY USING THE COMMENTS AND TEST DESCRIPTION FOUND IN 


8 
0 
. GIVING A VERBAL DESCRIPTION OF THE ERROR THAT HAS 
4 
é THE PROGRAM LISTING TO DETERMINE WHAT FUNCTION OR 
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“YOGIC WAS BEING TESTED, THE OPERATOR CAN THEN REFER 
TO THE ENGINEERING DRAWINGS TO ISOLATE THE PROBABLE 
CAUSE FOR THE FAILURE. 


SAMPLE ERROR REPORT 


BELOW IS AN EXAMPLE OF AN ERROR WHICH COULD HAVE 
OCCURRED DURING EXECUTION OF THE PROGRAM: 


MEM. MGMT. REG. BITS NOT Pie taint 

REGISTR WROTE READ READ 

ADDRESS (OCTAL) (OCTAL) 84.32109876543210 TESTNO ERRORPC 
177572 040000 060000 0110000000000000 000012 022060 


WE SEE THAT THE ERROR OCCURRED IN TEST 12 AT LOACTION 
022060. THE ‘REGISTR ADDRESS'* TELLS US THAT WE WERE 
TESTING MEMORY MANAGEMENT'S STATUS RGISTER 0 (SRO). 
IN THE LISTING, THE TEST DESCRIPTION SAYS THAT THE 
ERROR BITS (BITS <15:15>) OF SRO WERE BEING SET AND 
th cet Bit Ua ae cal THE ERROR REPORT SAYS WE TRIED 


READ IT BACK WE READ *060000°". IT APPEARS THAT BIT 13 IS 
STUCK AT ‘‘l’’ OR IT IS GETTING SET WHEN BIT 14 IS SET 

TO “‘l’*, ERROR REPORTS BEFORE AND AFTER THIS ONE COULD 
TELL US WHICH IS THE CASE. 


MISCELLANEOUS INFORMATION 


a 


THE PROGRAM IS FULLY ACT AND APT COMPATABLE. . Ss 
AND IS SUPPORTED UNDER THE XXDP PACKAGE. © “*- ~~ 


END~-OF=PASS MESSAGE 


AT THE END OF EACH PASS OF THE PROGRAM THE PASS NUMBER 
AND TOTAL NUMBER OF ERRORS SINCE THE LAST END-OF=PASS ARE 
REPORTED IN THE END-OF=PASS MESSAGE. FOR EYAMPLE: 


END OF PASS #2 TOTAL ERRORS SINCE LAST REPORT 0 


THAT WOULD INDICATE THAT PASS TWO WAS JUST COMPLETED 
AND NO ERRORS WERE DETECTED DURING THAT PASS. BOTH 
THE PASS NUMBER AND NUMBER OF ERRORS ARE DECIMAL NUMBERS. 


T-BIT TRAPPING 


THE "‘T=BIT’* (BIT 4)_IN THE PROCESSOR STATUS WORD IS SET 

BY AN ‘RTI"* IN THE END-OF-PASS ROUTINE _FOR_EVERY OTHER PASS 
BEGINNING WITH THE THIRD PASS (PASSES 3,5, 7920). T-BIT 
TRAPPING CAN BE INHIBITED BY SETTING BIT 12.= 1 IN THE SWITCH 
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REGISTER (SEE SECTION 2.4). 
POWER FAILURE HANDLING 


IF A POWER FAIL OCCURS (FOLLOWED BY A POWER UP), THE 
MESSAGE ‘POWER FAILURE=RESTARTING'' IS TYPED OUT AND 
THE PROGRAM WILL RESTART EXECUTION AT ‘RESTRT:*' 


PHYSICAL BUS ADDRESS CONSTRUCTION 


BELOW IS A SIMPLIFIED DIAGRAM OF HOW THE MEMORY 
MAMAGEMENT LOGIC CONSTRUCTS A PHYSICAL BUS ADDRESS 
USING THE VIRTUAL ADDRESS AND THE PAGE ADDRESS REGISTER. 
THE PAGE DESCRIPTOR REGISTER SELECTED WILL CONTAIN THE 
PAGE EXPANSION, LENGTH, AND ACCESS INFORMATION. 


12 11 10 09 08 07 06 05 04 03 02 01 00 


| 
(ADDED TO) 
14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 ] 
oO Ge0oe@gcgiet@¢e@e6e0o0s8 W PAR** 
I I 
I : 
V 


20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 wed 02 01 00 


*= VBA BITS <15:13> SELECT THE APPROPRIATE PAR AND PDR 
x*= PSW MODE a © 01 (BIT 15) SELECTS THE USER (=1) OR 
KERNEL (=0) SET OF PAR'S/PDR'S 


RELOCATION THROUGHOUT MEMORY 


A FEATURE WAS ADDED TO ALLOW THE CONSTRUCTION OF a 

BUS ADDRESSES ABOVE THE NORMAL 16K LIMIT. THE SETTING 

OF THE LOCATION SMADR1 IN THE E~TABLE WITH ONE OF THE 

FOLLOWING CONSTANTS WILL ACCESS LOCATIONS BETWEEN 0 AND 7600 
OF EACH 4K GROUP UP TO THE MAXIMUM MEMORY ON THE SYSTEM. 

THE FIRST LOCATION OF EACH BLOCK(32 WORDS) IS WRITTEN AND READ. 
SEE TEST #24 IN THE LISTING FOR MORE DETAILS. 


CONSTANT MAX. MEM. CONSTANT MAX. MEM. CONSTANT MAX. MEM, 


0 OR 600 16K 3200 56K 5600 96K 
1000 20K 3400 60K 6000 100K 


SEQ 0009 
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429 1200 24K 3600 64K 6200 104K 
430 1400 28K 4000 68K 6400 108k 
431 1600 32K 4200 72K 6600 112k 
432 2000 36K 4400 76K 7000 116K 
433 2200 40K 4600 80K 7200 120K 
434 2400 44K 5000 84K 7400 124K 
435 2600 48K 5200 88K 7600 128K 
436 3000 52K 5400 92k 
437 
438 
439 sz 5.0 PROGRAM DESCRIPTION 
ee ee 
aie 5.1 SUBROUTINES USED BY THIS PROGRAM 
444 i 
445 : FOLLOWING IS A LIST OF THE SUBROUTINES AND HANDLERS USED 
446 | BY THIS PROGRAM THAT ARE NOT PROVIDED BY THE ‘'SYSMAC 
447 : PACKAGE’’. DETAILS OF THE SUBROUTINES UNIQUE TO THIS 
448 yy PROGRAM MAY BE FOUND IN THE PROGRAM LISTING. REFER TO 
449 ae THE *'SYSMAC’’ DOCUMENT AND PROGRAM LISTING FOR THE OTHER 
£30 po ROUTINES. 

° 

452 1. TURN OFF T-BIT AND SAVE CURRENT PSW 
453 2. TURN ON T=BIT AND RESTORE PREVIOUS PSW 
454 3. SET ALL WRITEABLE BITS IN ALL PAR/PDR'S 
455 4. READ AND COMPARE KERNEL AND USER PAR/PDR'S 
“26 ut 5. CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 
458 5.2 PROGRAM LISTING 
Se se a eg 
461 A TABLE Of CONT@NTS APPEARS AT THE BEGINNING OF THE LISTING 
462 WHICH CONTAINS THE NAMES OF EACH SECTION, SUBTEST. AND 
463 ROUTINE AND THE LINE NUMBERS CORRESPONDING TO THE START OF 
Pre: EACH. 
466 FOLLOWING THIS SECTION OF DOCUMENTATION IS THE ACTUAL 
467 PROGRAM LISTING COMPLETE WITH SUBTEST DESCRIPTIONS AND 
acs "CODING COMMENTS''. 
“70 5.3 USING THE PROGRAM TO DIAGNOSE A FAULT 
472 
473 WHEN AN ERROR OCCURS, ONE OF THE THINGS THAT'S IMPORTANT 
474 TO NOTE IS WHAT PASS THE ERROR OCCURRED ON. IF THE PASS 
475 R IS ODD AND IS THREE OR GREATER, THE ERROR MIGHT BE 
476 T-BIT SENSITIVE. TRY RUNNING THE PROGRAM AGAIN WITH BIT 
477 12 OF THE SWITCH REG. EQUAL TO ‘'' TO INHIBIT T-BIT 
478 TRAPPING. IF THE PASS NUMBER IS GREATER THAN ONE, THE 
479 ERROR MAY BE ITERATION SENSITIVE. TRY RUNNING THE PROGRAM 
480 AGAIN WITH BIT 11 OF THE SWITCH REG. EQUAL TO ‘'’ TO INHIBIT 
481 ITERATIONS. THESE HINTS SHOULD HELP YOU DETERMINE WHAT MAKES 
ey: THE MACHINE FAIL AND WHEN. 


484 IF YOU HAVE BEEN RUNNING WITH BIT 15 OF THE SWITCH 
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REG. EQUAL TO ‘0"', THEN YOU ARE ABLE TO LOOK AT ALL 

THE ERRORS THAT MAY BE RELATED TO THE FAULT YOU ARE 
DIAGNOSING. A FAULT IN AN EARLIER TEST MAY RESULT IN 
ERRORS DURING LATER TESTS WHICH MAY GIVE YOU MORE 

CLUES ABOUT THE NATURE OF THE FAULT. NOW USE THE METHOD 
OUTLINED IN SECTION 3.2 FOR EACH ERROR TO GATHER AS 
MUCH INFORMATION AS POSSIBLE. 


NOW Le TEST YOUR IDEAS ON THE CAUSE OF THE FAILURE, 

YOU MAY WANT TO SCOPE THIS ERROR CONDITION. SET BIT 09 
OF THE "SWITCH REG. EQUAL TO ‘‘l’* TO LOOP ON THE ERROR. 
FOR AN EVEN TIGHTER SCOPE LOOP THE ERROR CALL CAN BE 
REPLACED WITH A BRANCH (REFER TO COMMENTS BY ERROR CALLS 
IN THE PROGRAM LISTING). 


OR YOU COULD LOOP ON sat TEST BY EITHER SETTING BIT 14 

OF THE SWITCH REG. EQUAL TO °‘l"’ OF BY SETTING BIT 08 OF THE 
SWITCH REG. EQUAL TO ar AND THEN SETTING THE TEST NUMBER 
IN BITS 07-00 OF THE SWITCH REG. YOU WILL PROBABLY 


EQUAL T 


WANT TO 
ee Ae TYPEOUTS BY SETTING BIT 13 OF THE SWITCH REG. 


SEQ 0011 
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~TITLE MD=-11-CJKDA-B_KTF11-AA MMU DIAG 
;*COPYRIGHT (C) JUNE-79 

:*DIGITAL EQUIPMENT CORP. 

:*MAYNARD, MASS. 01754 


** 


:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
: #PACKAGE (MAINDEC=11=DZQAC-C3), JAN 19, 1977. 


“SBTTL OPERATIONAL SWITCH SETTINGS 


te SWITCH USE 

** mmm PS Re DD GS ee ee ee 
:* 15 HALT ON ERROR 

;* 14 LOOP ON TEST 

:* 13 INHIBIT ERROR TYPEOUTS 
:* 12 INHIBIT TRACE TRAP 

:* 17 INHIBIT ITERATIONS 

ze 10 BELL ON ERROR 

:* 9 LOOP ON ERROR 


LOOP ON TEST IN SWR<7:0> 
* SBTTL BASIC DEFINITIONS 


Cia hee OF THE STACK POINTER *** 1100 «x 


STACK= 

-EQUIV EMT,ERROR :sBASIC DEFINITION OF ERROR CALL 

-EQUIV IOT,SCOPE ;sBASIC DEFINITION O* SCOPE CALL 

re DEF INITIONS 
17 ;:CODE FOR HORIZONTAL TAB 


Fe 12 ;:CODE FOR LINE FEED 

CR= 15 2+ CODE FOR CARRIAGE RETURN 

CRLF= 200 ODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 : PROCESSOR STATUS WORD 


;sSTACK LIMIT REGISTER 

; PROGRAM INTERRUPT REQUEST REGISTER 
; sHARDWARE SWITCH REGISTER 

DDISP= 177570 ; sHARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 ; ; GENE 


ae RAL REGISTER 
R1= a1 ;sGENERAL REGISTER 
R2= " :sGENERAL REGISTER 
R3= %5 ;:GENERAL REGI 
R4= 24 ;sGENERAL REGISTER 
R5= z5 : GENERAL REGISTER 
R6= 26 ; GENERAL REGISTER 
R7= %7 ;:GENERAL REGISTER 
SP= 26 ;;STACK POINTER 
PC= %7 ;sPROGRAM COUNTER 

s*PRIORITY LEVEL DEFINITIONS 

PRO= 0 SORORITY LEVEL 0 
PR1= 40 PRIORITY LEVEL 1 


SEQ 0012 
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568 000100 PR2= 100 s;PRIORITY LEVEL 2 
569 000140 PR3= 140 s:PRIORITY LEVEL 3 
570 000200 PR4= 200 : PRIORITY LEVEL 4 
$71 000240 PR5= 240 ::PRIORITY LEVEL 5 
$72 060300 PR6= 300 ::PRIORITY LEVEL 6 
16, 000340 PR7= 340 :;PRIORITY LEVEL 7 
575 3%’ "SWITCH REGISTER’’ SWITCH DEFINITIONS 
576 100000 SW15= 100000 
577 040000 SW14= 
578 020000 SW13= 20000 
5 010000 SWi2= 10000 
580 004000 SW11= 
581 002000 SW10= 2000 
582 001000 SwO9= 1000 
583 000400 SwO8= 0 
5 200 SWO7= 200 
585 000100 SWwO6= £100 
5 0 SwO5= 40 
587 000020 SwWwO4= 20 
5 000010 SwO3= 10 
589 090004 SwO2= 
5 000002 SwOl= 2 
591 001 SwOO= 1 
592 -EQUIV SWO9,SW9 
593 -EQUIV SW08,SW8 
5 -CQUIV SWO7,SW7 
595 -EQUIV Sw06, 
596 -EQUIV SW0O5,SW5 
597 EQUIV SW04,SW4 
598 EQUIV Sw03, 
5 -EQUIV SWO2,SW2 
600 -EQUIV SWO1,SW1 
73 -EQUIV SWOO,SWwO 
603 :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
604 100000 BIT15= 
605 040000 BIT14= 
020000 BIT13= 20000 
607 010000 BIT12= 
608 000 BIT11= 4000 
002000 BIT10= 2000 
610 000 BITO9= 1000 
611 000400 BITO8= 400 
612 200 BITO7= 200 
613 000100 BITO6= 100 
614 0 BITOS= 40 
615 20 BITO04= 20 
616 000010 BITO3= 10 
617 000004 BITO2= 
618 000002 BITO1= 2 
619 01 B1TOO= 1 
620 -EQUIV BITO9,BIT9 
621 -EQUIV BITO8,BIT8 
622 -EQUIV BITO7,BIT7 ai. 


625 -EQUIV BIT06,BIT6 


MD-11=CJKDA=B KTF11=AA MMU 
11=JUN-79 13: 


CJKDAB.P11 


000240 


000250 


177572 


172516 


177600 


177656 


D 
: 


l 
0 


AG MACY11 30A(1052) 


11=JUN=79 


BASIC DEFINITIONS 


-EQUIV 
-EQUIV 
-EQUIV 
EQUIV 
EQUIV 


BIT05,BIT5 
Bi rset 


BITOO, °B110 


B 2 
13:21 PAGE 14 


;*BASIC *'CPU'' TRAP VECTOR _ADDRESSES 
ERRVEC= 4 


PIRQVEC=240 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 


:*KT11 VECTOR ADDRESS 


MMVE C= 


250 


E OUT AND OTHER ERRORS 
ay AND ILLEGAL INSTRUCTIONS 


3; TRACE T 
: BREAKPOINT TRAP (RPT) 
an eh TRAP (IOT) **SCOPE** 
;;POWER FAIL 
: EMULATOR TRAP (EMT) **ERROR** 
33° "TRAP*' TRAP 


;: TTY KEYBOARD VECTOR 
eit PRINTER VECTOR 


ROGRAM INTERRUPT REQUEST VECTOR 


>*KT11 STATUS REGISTER ADDRESSES 


SRO= 
SR1= 
SR2= 
SR3-= 


177572 
177574 
177576 
172516 


;*USER ‘‘I*’ PAGE DESCRIPTOR REGISTERS 


UIPDRO= 
UIPDR1= 
UIPDR2= 
UIPDR3= 
UIPDR4= 
UIPDR5= 
UIPDR6= 
UIPDR7= 


; *USER 


UIPARO= 
UIPAR1= 
UIPAR2= 
UIPAR3= 
UIPAR4= 
UIPAR5S= 
UIPAR6= 
UIPAR7= 


177600 


177616 


"'I'" PAGE ADDRESS REGISTERS 


177640 


177656 


;*KERNEL ‘'I"* PAGE DESCRIPTOR REGISTERS 


SEQ 0014 


MD-11=CJKDA=8 KTF11=AA MMU D 
11=JUN=-79 13:10 


CJKDAB.P11 


000174 
000176 


000200 


000046 
000052 


ed nd and aa eel aad ald al 
NN NN NN ON NS 
POMIMIMPOPONNNY 


LAI AI LAI CA AANA 
axl con exe aad US 
ARNVORRN 


SN SN 
NM 
WG 
LS 
MN 


;™— ss 2 


and and ae ed ald en ad nel 
SN NNN 
PIOMQINMINMS 
NAW 

WI 

NM 


001100 
000700 


020000 


. 4 
DIAG MACY11 pe 1i=JUN=79 13:21 PAGE 15 


MEMORY MANAGEMENT DEF INI TIONS 


KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDRS= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
*KERNEL ‘‘I°* PAGE ADDRESS REGISTERS 
KIPARO= 172340 
KIPAR1= 172342 
KIPAR2= 172344 
KIPARS= 172346 
KIPAR4= 172350 
KIPARS= 172352 
KIPAR6= 172354 
KIPAR7= 172356 


-EQUIV SP,KSP 
-EQUIV SP,USP 
-EQUIV BITS,TAIT 
-EQUIV BIT6,WBAIT 
KERSTK= STACK 
USESTK= STACK=200 


;*ADDITIONAL DEFINITIONS 


-SBTTL TRAP CATCHER 


.=0 
> *ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘',4#2,HALT"' 
>*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
omcapeen~ * CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 ;sSOFTWARE DISPLAY REGISTER 
SWREG: .WORD QO ;: SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADDRESS(ES) 

JMP @ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
~SBTTL ACT11 HOOKS 


° STARA AAA AAA AERAAAAAERARAEERAAARAEAEREREEERERERERERREREE REE 


HOOK S yg ng BY ACT11 


~~ ; SAVE PC 
SENDAD 371) SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
"WORD 0 


fase 1 LOC. zoe TO ZERO 
3: RESTORE P 


. =$SVPC 
~SBTTL APT PARAMETER BLOCK 


CS SASS AAAAAAAAAAAAHRERHAAAAAREHEHHARKAREKRERAKRKREHRERRR Reet eeeenenee 


SEQ 0015 


MD-11=CJKDA=8 KTF11=AA MMU 
11=JUN-79 13: 


CJKDAB.P11 


000024 
000044 


0 
000016 


D 
: 


I 
0 


AG MACY11 30A(1052) 


, ¢ 
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APT PARAMETER BLOCK 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


SERRA ERE EERE REET REE Ee 
. $X=, ;;SAVE CURRENT LOCATION 
~=24 :sSET POWER FAIL TO POINT TO START OF PROGRAM 
200 3:FOR APT START UP 
=44 ;sPOIN! TO APT INDIRECT ADDRESS PNTR. 
;:POINT TO APT HEADER BLOCK 
-=.$X  ;;RESET LOCATION COUNTER 
IOI IUIUIOIIISIIUIOIIOIDIDIOIUIDISIUIOIIISISISIIUIOIIUIOISIUIOIIUIUIIIOIIIDDC i itn ttn tins 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
® INTERFACE SPEC. 


;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
;sADDRESS OF APT MAILBOX (BITS 0-15) 
;;RUN TIM CF LONGEST TEST 
pe TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
5 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
.WORD  $ETEND-$MAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


SEQ 0016 


MD-11=CJKDA=B KTF11=AA MMU D 
11=JUN-79 13:1 


CJKDAB.P11 


and and cad and and and and and cl ond 
ant and and onl anf and and onl anf 
— —d —d sd 


WIWNWWWGPRO PPO 


S88S88S88S3SS88sssssss 
e 
ox 


— 3) —)} —) 0) —) —) 2) —) 


™ 
© 


001100 
000000 


] 
0 


000377 


~SBTTL COMMON TAGS 


SS REKEKKEKKEKKEAEEEKKEKERKEEREEEREKKEEEEKEEKEKEEEEEEEREKEREEEKEEEKKKEKEE 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


;*USED IN THE PROGRAM. 


$CMTAG: 
STSTNM: 


$AUTOB: . 


-=1100 


. WORD 
-BYTE 


OOODdOCO0O00 -ODCo0o0c00°2 


UU 
Nm ay 

mw 

v 


OOOCOCOOOCOCOO CO-2- VO 


<207><377><377> 
/?/ 


<15> 


. @ 
AG MACY11 30A(1052) 1i=JUN=79 13:21 PAGE 17 
COMMON TAGS 


:¢START OF COMMON TAGS 


;:CONTAINS THE TEST NUMBER 
3zCONTAINS ERROR FLAG 
3zCONTAINS SUBTEST ITERATION COUNT 
;:CONTAINS SCOPE LOOP ADDRESS 
3zCONTAINS SCOPE RETURN FOR ERRORS 
;zCONTAINS TOTAL ERRORS DETECTED 
3: CONTAINS ITEM CONTROL BYTE 
3;:CONTAINS MAX. ERRORS PER TEST 
3:CONTAINS PC OF LAST ERROR INSTRUCTION 
3;;CONTAINS ADDRESS OF ‘GOOD’ DATA 
3:CONTAINS ADDRESS OF ‘BAD DATA 
3zCONTAINS ‘GOOD’ DATA 

"BAD' DATA 


; sRESERVED=--NOT TO BE USED 


; sAUTOMATIC MODE INDICATOR 
;s INTERRUPT MODE INDICATOR 


;zADDRESS OF SWITCH REGISTER 

;zADDRESS OF DISPLAY REGISTER 

7: TTY KBD STATUS 

:: TTY KBD BUFFER 

sz TTY PRINTER STATUS REG. ADDRESS 

sz TTY PRINTER BUFFER REG. ADDRESS 
3;CONTAINS NULL CHARACTER FOR FILLS 
3zCONTAINS # OF FILLER CHARACTERS REQUIRED 
32 INSERT FILL CHARS. AFTER A ‘LINE FEED‘' 
33° ‘TERMINAL AVAILABLE’' FLAG (BIT<07>=0=YES) 
3;CONTAINS THE ADDRESS FROM 

:zWHICH ($REGO) WAS OBTAINED 


sz CONTAINS (($REGAD) +10) 
3: CONTAINS (($REGAD) +12) 
7;USER DEFINED 

;;USER DEFINED 

; USER DEFINED 

3ZUSER DEFINED 

;USER DEFINED 

: USER DEFINED 

72MAX. NUMBER OF ITERATIONS 
7zESCAPE ON ERROR ADDRESS 
:;CODE FOR BELL 

7 QUESTION MARK 

>: CARRIAGE RETURN 


SEQ 0017 


MD=11=CJKDA=B KTF11=AA MMU 


CJKDAB.P11 


001224 


001256 
001257 


001260 
001262 


11=JUN=79 1 


000012 


000 
000000 
000000 


000 
000 


000000 


AG MACY11 30A(1052) 
COMMON TA 


SLF: 


EVEN 


* 


11=JUN=79 
GS 


eASCIZ <12> 


FREAK REE EKEEEKEKEEEERERKEKKEEKRREEKKEEEEEREKEEE EERE 


.SBITL APT MAILBOX=ETABLE 


5 ERR KR EKEEEEKKEEKKEKKKEERKEEREKEKEEREEKEE EERE 


: WORD 


ACPUOP 


AMAMS 1 
AMTYP1 


AMADR1 


elelelelelelele)lelelele) oe) a 


13:21 


, « 
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;sLINE FEED 


;;APT MAILBOX 
yt > ge TYPE CODE 
FATAL ERROR NUMBER 


331/70 NUMBER 

;zMESSAGE ADDRESS 

3 zMESSAGE LENGTH 

7z;APT ENVIRONMENT TABLE 

3 zENVIRONMENT BYTE 

> z;ENVIRONMENT MODE BITS 

3;APT SWITCH REGISTER 

;;USER SWITCHES 

3;CPU TYPE, hy = 

BITS at 1 CPU TYPE 
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05 
11/70=06, PDQ=07, Q=10 

BIT 10=REAL TIME CLOCK 

BIT 9=FLOATING POINT PROCESSOR 

BIT 8=MEMORY MANAGEMENT 

:z;HIGH ADDRESS,M.S. BYTE 

::MEM. TYPE,.BLKA1 

MEM.TYPE BYTE == (HIGH BYTE) 


5 
; HIGH ADDRESS ,BLKA1 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘TYPE’ ABOVE 


HOLDS TEST NUMBER FOR TYPEOUTS 
USED TO STORE THE STACK POINTER AFTER A TRAP 
[USED TO STORE THE PC OF A TRAP OR ABORT 
USED TO STORE THE PS OF A TRAP OR ABORT 
USED TO STORE CONTENTS OF SRO 

USED TO STORE CONTENTS OR SR2 

SAVES THE PSW THAT MAY HAVE ITS T-BIT ON 
HOLDS RESULT OF ADDRESSES BEING AND-ED 
HOLDS RESULT OF ADDRESSES BEING OR-ED 

HOLDS NUMBER OF TIME-OUTS 

HOLDS VIRTUAL, ADDRESS TO BE CONVERTED 


“HOLDS BITS <15:00> OF PHYSICAL ADDRESS 
“HOLDS BITS <17:16> OF PHYSICAL ADDRESS 


SEQ 0018 


MD=11=CJKDA=B KTF11=AA MMU 


CJKDAB.P11 


863 
864 


001376 
001400 
001402 


11=JUN=-79 13: 


040740 
044031 


050055 
041047 
044171 
047272 
050062 


041261 
044231 
047504 


AG MACY11 30A(1952) 


G 2 
1i-JUN=79 13:21 PAGE 19 
ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 


>*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
>*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
>*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


: *NOTE1: 


= *NOTE2: 


7*1TEM 1 


7* ITEM 2 


s* ITEM 3 


IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC) 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


:>sPOINTS TO THE ERROR MESSAGE 
;sPOINTS TO THE DATA HEADER 
;sPOINTS TO THE DATA 

:sPOINTS TO THE DATA FORMAT 


s UNEXPECTED CPU TRAP TO LOC. 004 
sOLD PC OLD PSW R6 WAS TESTNO ERRORPC 
rey Sebi WASR6, TESTNO, SERPPC, 0 


s UNEXPECTED MEM. MGMT. TRAP TO LOC. 250 
sOLD PC OLD PSW R6 WAS’ SRO SR2 

; TRAPPC, TRAPPS, WASR6, WASSRO, WASSR2, TESTNO, 
:0,0,0.0.0,0.0 


sPRIORITY BITS SET WRONG IN PSW 
sWROTE READ TESTNO ERRORPC 
;$REGO,$REG1, TESTNO, SERRPC ,0 


° 
o o e ge 


sMODE BITS SET WRONG IN PSW 
sWROTE READ TESTNO ERRORPC 
:$REGO, pest. . TESTNO, SERRPC ,0 


e e s e 


sDUAL_ADDRESSING BETWEEN HI&LO BYTES OF PSwW 
sWROTE —_ READ TESTNO ERRORPC 
; $REGO, Y frosty . TESTNO, SERRPC ,0 


s© 0.90. 


;KERNEL R6 CHANGED BY WRITING USER R6 
“WROTE READ  TESTNO ERRORPC 
:$REGO, $REG1, TESTNO, SERRPC ,0 


- 
ca o ae e 


sA_ MEMORY MGMT. REG. TIMED OUT 
:ADDRESS TESTNO ERRORPC 
: $REGO, TESTNO, SERRPC ,0 


SEQ 0019 


TESTNO ERRORPC 


SERRPC, 


MD=11=CJKDA=B KTF11=AA MMU 


CJKDAB.P11 


001404 
001406 
001410 
001412 
001414 
001416 
001420 
601422 
001424 


001426 
001430 


11=JUN- 


050066 
041317 
044261 
047314 
050071 
041363 
044 361 
047330 
050076 
041423 
044501 
047344 
050103 


041472 
044641 
047362 
050111 


041527 


050111 


041562 


044501 


04 7364 
056703 
041636 
044671 
047372 
050114 
041700 
044771 


047410 
050122 


79 13: 


D 
: 


] 
0 


AG MACY11 30A(1052) 


s* ITEM 


11=JUN=79 
ERROR POINTER TABLE 


DF 7 


s*ITEM 12 


s* ITEM 


:* ITEM 


s* ITEM 


ss] TEM 


;* ITEM 


13:21 


H 2 
PAGE 20 


30,0,0 


; SUMMARY OF MEM. MGMT. REG. TIMEOUTS 

;REGISTER=ADDRS NUM. OF 

:AND=ED OR-ED TIMOUTS TESTNO ERRORPC 
; ANDADR , ORADR, TONUM, TESTNO, SERRPC ,0 


. 
e e e e e 


;MEM. MGMT. REG. ae Aee NOT a 

sREGISTR READ READ=-(BINAR 

:ADDRESS (OCTAL) 84,3210987654 3210 TESTNO ERRORPC 
;$REGO, oh - $REG1, TESTNO, SERRPC ,0 


° 
o e a e é 


sMEM. MGMT. REG. BITS NOT yt CORRECTLY 
sREGISTR WROTE READ READ 

sADDRESS (OCTAL) (OCTAL) (BINARY) TESTNO ERRORPC 
: $REGO, $REG1, SREGZ, $REG2, TESTNO, SERRPC , 0 


. 
o a dl ¢ o g 


;SRO EFFECTED BY WRITE TO PSW 
READ TESTNO ERRORPC 
;$REGO, TESTNO, SERRPC ,0 


- 
g 6 e 


;SR1 DID NOT READ ALL ZEROS 
sREAD TESTNG ERRORPC 
;$REGO, TESTNO, SERRPC ,0 


sDUAL ADDRESSING BETWEEN BYTES OF PAR OR PDR 
:REGISTER WROTE READ READ 

eons (OCTAL) (OCTAL) (BINARY) TESTNO ERRORPC 
4 ars wit . SREG2 , SREG2, TESTNO, SERRPC ,0 


¢ DUAL sata BETWEEN PAR-PDR‘S 
;sPAR=PDR P 


: CLEARED EFFECTD EXPECTD RECEIVD TESTNO ERRORPC 
; $REGO, $REG1, $REGS , SREG2, TESTNO, SERRPC ,0 


> 
e e 9 e we e 


sPHYS. ADDR. FORMED READ WRONG 
sPHYSICAL VIRTUAL 
sADDRESS ADDRESS KIPAR4 TESTNO ERRORPC 
;PBALO,VIRT1,$REG4, TESTNO, SERRPC ,0 


SEQ 0020 





MD-11=CJKDA=B8 KTF11=AA MMU 
11=JUN-79 13: 


CJKDAB.P11 


td ed ds I 
ole lela) ee] a) 
eed ced ed end ond eed od od 

OOONAOUS Ww 


© 
a 


041736 
045061 


047424 
050127 


042010 
045207 


047446 
050137 


042045 
045267 


047460 
050143 


042104 
045366 
047474 
050150 


042150 
045416 
047504 
050153 


042210 
045416 
047504 
0501535 


042255 
050153 


042323 
045456 
047516 
050153 


D 
: 


] 
0 


AG MACY11 30A(1052) 


s* ITEM 20 
EM20 
DH20 


DT20 
DF 20 


>*I1TEM 21 
EM21 
DH21 


DT21 
DF21 


r* ITEM 22 
EM22 
DH22 


DT22 
DF 22 


s*ITEM 23 
E 


11=JUN=79 
ERROR POINTER TABLE 


.« 
PAGE 21 
SEQ 0021 


sPHYS. ADDR. ‘og 4 READ WRONG IN RELOCATE MODE 
“PHYSICL PAR 4 AR 5 
“ADDRESS VBA VBA PAR 5 PSW TESTNO 


;PBALO, VIRT1,VIRT2,$REG4, SREGS, $TMPO, TESTNO, SERRPC ,0 
;3,0,0,0,0,0,0,0 


<i a A, GET SET IN PDR 
> TESTED ADDRESS TESTNO ERRORPC 
: $REGS,SREG3, TESTNO, SERRPC ,0 


* 
o e e a 


sW-BIT SET IN MORE THAN ONE PDR 

sPDR IN PDR VIRTUAL 

sERROR TESTED ADDRESS TESTNO ERRORPC 
; $REGO, $REGS, $REGS, TESTNO, SERRPC ,0 


° 
e o e e e 


;W-BIT NOT CLEARED BY WRITING TO PDR 
:PDR TESTNO ERRORPC 
; SREGS, TESTNO, SERRPC ,0 


e e & 


;WRITING SRO SET W-BIT IN KIPDR7 
sPDR WAS EXPECTD TESTNO ERRORPC 
; $REG2,$REG1, TESTNO, SERRPC .0 


© 
eo o ra o 


:W-BIT GOT SET DURING TIMEOUT ABORT 
:PDR WAS EXPECTD TESTNO ERRORPC 
; $REG2,$REG1, TESTNO, SERRPC ,0 


o 
e ca € w 


Ay ees ACCESS + ohne NOT OCCUR 
;PDR TESTNO ERRORPC 
‘SREG2, STMPO, TESTNO, SERRPC. 0 


e e a & 


ACCESS ERROR DID NOT ABORT INSTRUCTION 
:PDR 4  PSW TESTNO ERRORPC 
: $REG2.$TMPO, TESTNO, SERRPC ,0 


Ps e e e 


:SRO DID NOT REPORT A eae — CORRECTLY 
:5RO WAS EXPECTD PDR 4 TESTNO ERRORPC 
;WASSRO, wt . SREG2, STMPO. TEs TNO, SERRPC ,0 


MD-11=CJKDA-8 KTF11~ 
11=JUN= 


CJKDAB.P11 


AA 
7 


050155 


042655 
045776 
047614 
050157 


050153 
042733 
046176 
047662 
050157 
043000 
046513 
047700 
050153 


50 
050153 


MMU 


9 13: 


D 
; 


] 
0 


AG MACY11 30A(1052)_ 1i=JUN-79 
ERROR POINTER TABLE 


s*ITEM 31 
E 


s*ITEM 37 
EM37 
DH37 


DT37 
DF 30 


:* ITEM 40 
E 


7* ITEM 42 


ij @ 
13:21 PAGE 22 


;SR2 DID NOT LOCKUP CORRECT VIRTUAL ADDR. 
:SR2 WAS EXPECTD PDR 4  PSW TESTNO ERRORPC 
;WASSR2, $REG4 , $REG2, $TMPO, TESTNO, SERRPC ,0 


e ¢ e g ca a 


sPAGE LGTH. ABOR? OCCURRED WHEN IT SHOULDN'T HAVE 
7V.B.A. KIPDR4 SRO WAS SR2 WAS TESTNO ERRORPC 
: $REGO, $REG4 ,WASSRO,WASSR2, TESTNO, SERRPC ,0 


e e td e sd g 


sPAGE LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE 
;V.B.A. KIPDR4 TESTNO ERRORPC 
:$REGO, SREGS, TESTNO, $ERRPC ,0 


e e o o 


:SRO DID NOT REPORT PAGE LGTH. ABORT CORRECTLY 
:V.B.A. KIPDR4 SRO WAS EXPECTD TESTNO ERRORPC 
; $REGO, $SREG4 ,WASSRO, $REG2, TESTNO, SERRPC ,0 


mn ag NOT LOCKUP CORRECT VIRUAL ADDR. 
7V.B KIPDR4 SR2 WAS EXPECTD TESTNO ERRORPC 
‘ SREGO. $REG4 ,WASSR2 , SREGS, TESTNO, SERRPC ,0 


e ca e eo e oe 


;SR2 DID NOT LOCKUP CORRECT VIRUAL ADDR. 
:SR2 WAS EXPECTD TESTNO ERRORPC 
; WASSR2,SREG1, TESTNO, SERRPC , 0 


° 
£ e oe a 


yr OR SR2 CHANGED BY A SECOND ABORT 
FIRST ABORT SECOND ABORT 

“SRO WAS SR2 WAS SRO WAS SR2 WAS TESTNO ERRORPC 
: $TMPO. as »WASSRO ,WASSR2, TESTNO, SERRFC ,0 


SRO OR SR2 WAS te ‘'RESET’’ BY A RESET 
:SRO WAS SR2 WAS TESTNO ERRORPC 
‘WASSRO. WASSRO, TESTNO, SERRPC 0 


e a _ a 


:SR2 NOT TRACKING CORRECTLY 
: SRE WAS EXPECTD TESTNO ERROPC 
SSR2 ,SREG1, TESTNC, SERRPC ,0 


e & a - 


SEQ 0022 


MD-11-CJKDA=B KTF11=AA_ MMU 
CJKDAB.P11 


1087 
1088 
1089 
1090 


1091 
1092 


333 


288883333 


Kn 


el eh kd de ed ed ee ee ed nd ak ed ed ad 8 I 
CON AUIBWN | OOONOU SW —OOOnN 


ee eh ee ee ee me ed ee med we ee ee ed ed nd A eed 


002000 


11=JUN=79 


050155 


043141 
045366 
047474 
050150 
043210 
046413 
047724 
050157 


043254 
046525 


047742 
050157 


043327 
046722 
047760 
050165 
043372 
046722 


047760 
050165 


043435 
046777 
047772 
050171 
043473 
047017 
050000 
050173 


043551 


13: 


D 
; 


I] 
0 


s* ITEM 50 
EM 


s*1TEM 52 
EM5 


ss ITEM 44 
EM44 


DH44 


DT44 
DF 30 


s*ITEM 45 
EM45 


DH45 


DT45 
DF 30 


s*ITEM 46 
EM46 


DH46 


DT46 
DF 46 


s* ITEM 47 
EM47 


DH46 


DT46 
DF 46 


2 


kK 2 
AG MACY11 30A(1052) 11=JUN=79 13:21 PAGE 23 
ERROR POINTER TABLE 


;DID NOT TRAP THRU KERNEL SPACE 
sPSW WAS R6 WAS TESTNO ERRORPC 
+ © Y pbendeedtememeteticias 


:KT ERROR NOT SERVICED ON TIMEOUT ERROR 
;PDR TESTNO ERRORPC 

;$REGS, TESTNO, SERRPC ,0 

SRO OR SR2 CHANGED BY TIMEOUT ERROR 
sEXPECTED RECEIVED 


:SR SR2 SRO WAS SR2 WAS TESTNO ERRORPC 
:$REGO, SREG1 ,WASSRO,WASSR2, TESTNO, SERRPC 0 


° 
e e e oe eo e 


sERROR DURING *DOUBI_LE ERROR'' (KT & ODD ADDR.) 
EXPECTED: 


sPSW PC SRO SR2 

170017 (3$+4) 020147 (3$) 

sRECEIVED 

; PC SRO SR2 TESTNO ERRORPC 
; $REG1, $REGS ,WASSRO ,WASSR2, TESTNO, SERRPC 0 


° 
e o oC eo e a 


sMFPI INSTRUCTION PUSHED WRONG DATA 
;DATA DATA 


“EXPECTD RECEIVD TESTNO ERRORPC 
*$REGO, $REG1, TESTNO,$ERRPC 0 


° 
o e F e 


sMTPI INSTRUCTION LOADED WRONG DATA 
sDATA DATA 


*EXPECTD RECEIVD TESTNO ERRORPC 
$REGO, $REG1 , TESTNO.$SERRPC ,0 


° 
oe e e a 


;STACK NOT PUSHED BY MFPI-MTP] 
;TESTNO ERRORPC 
; TESTNU, SERRPC 0 


@ e 


sKERNEL PAGE ACCESSED INSTEAD OF USER: MFPI-MTP] 
:SRO WAS SR2 WAS TESTNO ERRORPC 
;WASSRO ,WASSR2, TESTNO, SERRPC ,0 


70,0,0.0 


sWRONG PDR'S REFERENCED WHILE IN RELOCATE MODE 


SEQ 0023 


MD-11=CJKDA=B KTF11=AA 9% 


CJKDAB.P11 


1143 002030 
002032 
0020 


WOO NAUESWN $0 OONAUIS 


“IN AARXARAADRAAAAQQAMUMNNYUUIUTIUTIUI ES & * 
ANASSRIEALALGLIS SS 


002036 
002040 


11=JUN=79 
047057 
050012 
050177 
043627 
046722 


047760 
050165 


050171 


043730 
044361 


047330 
050076 


050207 


13: 


D 
1 


] 
0 
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s*ITEM 56 
E 


:* ITEM 55 
EMS5 


DH11 


DT11 
DF11 
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SEQ 0024 
sPHYSICL PAR 4 
:ADDRESS V.B.A. PAR 4 SRO wAS SR2 WAS Psw TESTNO 
OO VIRT1. SREGS. ,WASSRO ,WASSR2,$TMPO, TESTNO, SERRPC, "0 


sMFPD INSTRUCTION PUSHED WRONG DATA 
T DATA 


sDA 
:EXPECTD RECEIVD TESTNO ERRORPC 
;$RECO, $REG1, TESTNO, SERRPC ,0 


sSTACK NOT PUSHED BY MFPD-MTPD 
sTESTNO ERRORPC 
: TESTNO, SERRPC , 0 


;PAR OR PDR WAS CHANGED BY A RESET 
:REGISTR READ R NARY) 

sADDRESS (OCTAL) 54 32109876543210 TESTNO ERRORPC 
; $REGO, $REG1,$REG1, TESTNO, SERRPC ,0 


° 
2 e e e oe 


sPSW CHANGED BY AN RTI IN USER MODE 
sPSW WAS EXPECTD TESTNO ERRORPC 
i $REGT, $REG2, TESTNO, SERRPC ,0 


& . ® 


MD=11=CJKDA-B KTF11-AA MMU D 
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1174 


SBSLEFRASLSSEVRARATLSIINVAG 


ENON a, an dh do doth db dna ananaaneebananan atarababa 


SRaRaes 


SB 


WOONAULSWN © 


ee wee ee eed eed eed eed oe od 


MPOMINMIMINININ NINN 


3 


1221 


005227 
177777 
001403 
005237 
000000 


012637 


I 
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001226 


177777 
001270 
001266 


001226 
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002100 


001272 
001274 
177572 


002152 
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1T1=JUN-79 13:21 PAGE 25 
RAP HANDLING ROUTINES *#ee« 


» SBTTL TRAP HANDLING ROUTINES 
»SBTTL CPU TRAP HANDLER ROUTINE 


fA AAAAAKAEARAKEERAEEREAERARAREEARRRARREEREEERERERTRRRERARKKEREE 


eeeKK 


RRKKR genae 


te 
ze THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS THRU 
:* “ERRVEC'’ (LOC. 004). IF THIS SUBROUTINE IS ENTERED BY A 
ze SECOND TRAP BEFORE THE FIRST HAS BEEN SERVICED, A HALT IS 
:* EXECUTED. 
*?*® 
+ RRRRRERERRR EERE RRR ERE REREERERR REE RRR RRR E EERE RRR 
TIMERR: INC (PC)+ :MAKE FLAG ZERO IF FIRST TIME THRU 
TIMFLG: .WORD <1 SNEGATIVE ONE FOR ‘HAVE ENTERED’’ FLAG 
BEQ 1$ “BRANCH IF FIRST TIME IN 
INC SMSGTYPE ;TELL APT THERE WAS AN ERROR 
HALT : STOB: - I'VE ENTERED THIS ROUTINE 
A SECOND TIME BEFORE I FINISHED 
“REPORTING THE FIRST ERROR. THE 
:SECOND ENTRY ADDRESS SHOULD BE ON 
“THE KERNEL STACK 
1$ MOV (KSP)+,TRAPPC :SAVE PC+2 AT TIME OF ABORT 
MOV (KSP)+,TRAPPS :SAVE PS AT TIME OF ABORT 
MOV KSP,WASR6 :SAVE STACK POINTER VALUE 
ERROR 1 : TRAP OR ABORT TO LOC. 4 
MOV #-1, TIMFLG “MAKE FLAG NEGATIVE ONE FOR NEXT TIME 
MOV TRAPPS,-(KSP) :PUT PC & PS OF TRAP ON STACK 
MOV TRAPPC , =(KSP) 
RTT :RETURN FROM INTERRUPT OR ABORT 
.SBTTL MEMORY MANAGEMENT TRAP HANDLER ROUTINE 
Cf REAR AKKKEEKEKEKKKKKEKERKEEEEEEKEEEKEKEKEEKKEEKEEKEEKEKEEKEKEEEEKREEREEEKEKEE 
** 
ze THIS SUBROUTINE WILL HANDLE ALL UNEXPECTED MEMORY MANAGEMENT 
:* TRAPS AND ASORTS THRU 'MMVEC’’ (LOC. 250). IF THIS SUBROUTINE IS 
z* ENTERED BY A SECOND MU RAP BEFORE THE FIRST HAS BEEN SERVICED, A 
:* HALT IS EXECUTED. 
*“* 
*: MmASAALALAALALALALSLSESELSESLELESE SELES ELEC ECCS ESC CPSC ECS LALLLLCLLL a. £ SE 
MGMERR: INC (PC)+ MAKE FLAG ZERO IF FIRST TIME THRU 
MGMFLG: .WORD <1 *NEGATIVE ONE FOR ‘HAVE ENTERED’ FLAG 
BEQ 1$ “BRANCH IF FIRST TIME IN 
INC SMSGTYPE TELL APT THERE WAS AN ERROR 
HALT :STOP! = I°VE ENTERED THIS ROUTINE 
7A SECOND TIME BEFORE I FINISHED 
sREPORTING THE FIRST ERROR. THE 
;SECOND ENTRY ADDRESS SHOULD BE ON 
HE KE TACK. 
1$: MOV (KSP)+,TRAPPC  2SAVE PC+2 AT TIME OF ABORT 
MOV (KSP)+,TRAPPS :SAVE PS AT TIME OF ABORT 
MOV KSP,WASR6 :SAVE STACK POINTER VALUE 
MOV SRO.WASSRO :SAVE CONTENTS OF KT STATUS REG. 0 
MOV SR2.WASSR2 =SAVE CONTENTS OF KT STATUS REG. 2 
BIC #160000, SRO :CLEAR ERROR BITS IN STATUS REG 0 
ERROR 2 sUNEXPECTED TRAP OR ABORT TO LOC. 1350 
MOV #-1.MGMFLG *MAKE FLAG NEGATIVE ONE FOR NEXT 


SEQ 0025 


N 2 
MD-11=CJKDA-B8 KTF11=AA MM DIAG MACY11 30A(1052) 11=JUN-79 13:21 PAGE 


26 
CJKDAB.P11 11=JUN=79 13:10 MEMORY MANAGEMENT TRAP HANDLER ROUTINE SEQ 0026 
1230 002232 013746 001270 MOV TRAPPS,=(KSP) ;PUT PC & PS OF TRAP ON STACK 
1231 002236 013746 001266 MOV TRAPPC ,=(KSP) 
\S3¢ 002242 000006 RTT sRETURN FROM INTERRUPT OR ABORT. 


MO-11=CJKDA=B KTF11=AA MMU D 
11=JUN-79 13:1 
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020112 
020116 


020124 


020220 


020226 


020264 
020266 


020000 


112737 


012737 


000403 
012716 
000002 
012737 
012737 


| 
0 


001100 
001140 
001100 
000340 


0 
020174 
020164 


177777 


020274 


0001 76 
000174 
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000020 


033706 


001115 


000014 


000010 


034136 
000010 


001106 
001170 


000004 
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17=JUN=79 13:21 
. SBTTL 
~SPTTL ***** STARTING POINT OF TEST sxe 
-SBTTL ***** STARTING ADDRESS OF 200 «ax 
=20000 
START: 
~-SBTTL INITIALIZE THE COMMON TAGS 
:;CLEAR THE COMMON TAGS ($CMTAG) AREA 
MOV #SCMTAG,R6 ;zFIRST LOCATION TO BE CLEARED 
CLR (R6)+ 3;CLEAR MEMORY LOCATION 
CMP #SWR,R6 ;;DONE? 
BNE .~6 LOOP BACK IF 


NO 
MOV ASTACK, SP "SETUP THE STACK POINTER 
:; INITIALIZE A FEW VECTORS 
MOV ASSCOPE ,A#IOTVEC af ive oe FOR SCOPE ROUTINE 


MOV #340,aM#1OTVEC+2 ;:LEVEL 
em VECTOR FOR ERRCR ROUTINE 
MOV #340, aWEMTVEC+2 ;:LEVEL 7 
MOV #STRAP , AA TRAPVEC ;.TRAP_VECTOR FOR TRAP CALLS 
MOV #340, a#TRAPVEC+2;LEVEL 7 
MOV #SPWRDN, AAPWRVEC POWER FAILURE VECTOR 
MOV #340, a#PWRVEC+2 ;:LEVEL 7 
MOV SENDCT,SEOPCT  ::SETUP END-OF-PROGRAM COUNTER 
CLR STIMES >; INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE +e CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1 , SERMAX ALLOW ONE ERROR PER TEST 
ssINITIALIZE THE ‘'T=BIT'’ TRAP VECTOR. THEN LOAD LOCATION °‘$RTRN'’, IN 
3; THE ‘END-OF=PASS*’ (SEOP) ROUTINE, WITH A ‘RTI"* OR ‘RIT 
MOV #SRTRN,@ATBITVEC ;:SET ‘'T'' BIT VECTOR r0 SRTRN 
MOV #340, a#TBITVEC+2 ::LEVEL 7 
MOV ARTI, $RTRN 33SET SRTRN TO A RTI 


MOV Prat @ARESVEC = ;;TRY TO DOA RIT 

CLR SP) ; ;DUMMY PS 

MOV nels, ~(SP) ie D 

RiT ;TRY THE RTT 
64$: “\ ae :7RTT IS LEGAL--SET $RTRN TO A RIT 
65$: ADD #10,SP sRTT Petras” eth’ cn OFF THE STACK 
66$: MOV #RESVEC +2, anne sve >sRESTORE TRAP CATCHER 

CLR $TBIT ;CLEAR *'T’* BIT SWITCH 


MOV ee . SLPADR : INITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV $LPERR ; SETUP THE ERROR LOOP ADDRESS 

:zSIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 

;sEQUAL TO A ‘=1"', SETUP FOR A SOF TWARE SWITCH REGISTER. 
MOV @FERRVEC,-(SP) ;;SAVE ERROR VECTOR 
MOV #67$,aMERRVEC  ::SET UP ERROR VECTOR 
MOV #DSWR, SWR oa FOR A HARDWARE SWICH REGISTER 
MOV #DDISP,DISPLAY A HARDWARE DISPLAY REGISTER 

CMP oon” ,aSWR ;TRY TO REFERENCE HARDWARE SwR 


BNE «BRANCH IF NO TIMEOUT TRAP OCCURRED 
; ¢ AND THE HARDWARE SWR IS NOT = -1 
BR 68$ *:BRANCH IF NO TIMEOUT 
67$: ~t #68%, (SP) +: SET UP FOR TRAP RETURN 
68$: MOV #SWREG, SWR POINT TO SOFTWARE Sw 


MOV #DISPREG, DISPLAY 


SEQ 0027 
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RESTORE ERROR VECIOR 


sCLEAR PASS COUNT 
SITEST USER SIZE UNDER APT 
YES,USE NON-APT SWITCH 
: INO, USE APT SWITCH REGISTER 


FUR EOP REPORT (SERTTL). 
;CLEAR ERROR CUUNTER 


FIRST TIME? 
«BRANCH IF NO 
STACT= -11? 
; «BRANCH IF YES 
sTYPE ASCIZ STRING 


,72$ 
fs T VALUE FOR SOF TWARE SWITCH REGISTER 


ARE WE P’ AWNING UNDER KXDP/ACT? 
® URRANCH If YES 
+ ¢ ARE WE RUNNING UNDER APT? 
;BRANCH IF YES 
SZ SOFTWARE SWITCH REG SELLE TED? 
; BRANCH IF NO 
;iGET SOF T-Swk SETTINGS 


;2;SET AUTO-MODE INDICATOR 
:GET OVER THE ASCI7Z 


71$ 
<CRLF >4MD-11- ~CUKDA-B KTF11=AA MMU DIAG. A&<CRLF > 


° g PESS SAAS SASS RA AERA KASS AKU AAA AKAAAHAAAeReKeNAAeNesaeeneaneeeenes 


: THE FOLLOWING TURNS ON A TIMER ON THE MULTI-OPTION TESTER 


chp a ADDRESS IN CASE OF TIMEQUT 
;SET START BIT IN MULTI-TESTER 


PETTITT IS TTT II LTTE TTT ETE TIE LITTLE LETT 


; INITIALIZE THE STACK POINTER 

;LOAD CPU SERVICE ROUTINE INTO TRAP VECTOR 
:SET NEW PS TO PRIORITY LEVEL 7-KERNEL 
;LOAD MEMORY MANAGENT ROUTINE INTO VECTOR 
:SET NEW PS TO PRIORITY LEVEL 7=KERNEL 
;PUT =-1 INTO RO TO INITIALIZE FLAGS 

: INITIALIZE CPU ERROR FLAG 

; INITIALIZE MEMORY MANAGEMENT ERROR FLAG 

> INITIALIZE LOG THAT HOLDS T-BIT PSw 

;BE SURE MEM. MGMT IS OFF TO START WITH 


MD=17=CJKDA-8 KTF11-AA MMU DIAG MACY11 30A(1052) 11=JUN=79 ‘e + 4 

C JKDAB.P11 11=JUN-79 13:10 INITIALIZE THE COMMON T 
‘Set 020310 012637 000004 69$: MOV (SP) +, AMERRVEC 
1292 020314 005037 001234 CLR $PASS 
1293 020320 132737 000200 001247 BITB MAPTSIZE,.SENVM 
1294 020326 001403 BEQ 70$ 
1295 020330 012737 001250 001140 MOV #SSWREG, SWR 
1296 0203 70$: 
1297 :; INITIALIZE THE ERROR COUNTER 
1298 020336 005037 001112 CLR SERTTL 
1299 .SBTTL TYPE PROGRAM NAME 
1300 3, TYPE THE NAME OF THE PROGRAM ” ot PASS 
1301 020342 005227 177777 INC w-1 
1302 0203446 001051 BNE 71$ 
1303 020350 022737 034072 000042 CMP MSENDAD , a442 
1304 020356 001445 eee 71$ 
1305 020360 104401 020426 TYPE 
1306 . SBTTL 
1307 020364 005737 000042 TST 
1308 020370 001012 BNE 73$ 
1309 020372 123727 001246 000001 (MPB SENV,41 
1310 020400 001406 BEQ 73$ 
1311 020402 023727 001140 000176 CMP SWR , ASWREG 
1312 020410 1005 BNE 
1313 020412 106407 GTSwR 
1314 020414 000403 Fk 74% 
1315 020416 112737 000001 001134 73$: MOVB #1,$AUTOB 
1316 020424 74%: 
1317 020624 000422 BR 
1318 *<s726: .ASCIZ 
1319 020472 71$: 
1320 
1321 020472 RESTRT: 
1322 
1323 
1324 
ea : IN MANUF ACTORING. 
1327 020472 012737 020514 000004 TIMEON: MOV #LOOP , a4 
1328 020500 012737 000340 000006 MOV #340,a46 
ttn 20506 012737 000002 164000 MOV #2,04164000 
1331 
1332 020514 012706 001100 LOOP: MOV A#STACK,KSP 
1333 020520 012737 002076 000004 MOV #TIMERR,ERRVEC 
1334 020526 012737 000340 000006 MOV #340, ERRVEC+2 
1335 020534 012737 002150 000250 MOV AMGMERR , MMVE C 
1336 020542 012737 000340 000252 MOV #340 ,MMVEC+2 
1337 020550 012700 177777 MOV #-1,R0 
1338 020554 010037 002100 MOV RO, TIMFLG 
1339 020560 010037 002152 MOV RO,MGMFLG 
1340 020564 012737 000340 001276 MOV #340, TBITPS 
vt! 020572 005037 177572 CLR SRO 


SEQ 0028 
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me ee a ad ad et LL 
© & 
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y= 


seca amadmnamaie at 
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SSSy 
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ou 


ce ee ee ee ee ee ee ed eed ed 
oo 
NOW » ©) 


ING 
10 O 
co 
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020730 
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] 
0 


020610 


177437 


000040 
000400 


020600 


020662 
177776 


177776 


010000 


020652 
177776 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


ST RAAARAERARAARE REAR ARR A AREER RERRERERRARRARERERREEKEEEREREREEE EE 


PSW PRIORITY BIT TEST 


THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <7:5> ‘PRIORITY BITS‘ 
TO SEE THAT SOME OF THE BASIC ‘DATA PATH'' LOGIC IS WORKING. 


seTEST 1 
,* 

_—— 

,* 

a. 
TST1: 
1$: 


2$: 


3$: 


#2%$,$LPERR 
RO 


R1 
RO 
R1 


#177437,R1 


RO,R1 
3$ 
3 


#40 ,RO 


#400,R0 
2$ 
#1$,$LPERR 


nt eee eee eee eR RRR RRR RRR RR REE RRR SESESE SASSER ESE SELES SSS 


;SET LOOP ON ERROR POINTER TO 2$ 

; INITIALIZE RO WITH PRIORITY=0 DATA 
sPREPARE R1 TO ACCEPT DATA READ 

;WRITE PRIORITY BITS IN THE PSW 

sREAD BACK THE LOW BYTE OF PSW 

sMASK OFF EVERYTHING EXCEPT PRIORITY BITS 
sWAS CORRECT PRIORITY SET IN THE PSW? 
;BRANCH IF YES 

sPRIORITY BITS SET WRONG IN PSW 

;FOR TIGHTER SCOPE LOOP 

sREPLACE ERROR CALL WITH 

;'BR 2$'' = 000770 

; CHANGE DATA TO NEXT PRIORITY 

; HAVE ty gl O-7 ALL BEEN CHECKED? 


; IF NO 
;RESET LOOP ON ERROR POINTER TO 1$ 


CT ARERR RRR REE ERE EEE ERED 


PSW MODE BIT TEST 
THIS TEST READS AND WRITES THE PROCESSOR STATUS WORD <15:12> ‘MODE BITS*' 


SRR EE ERRATA 


* 


TST2: 
1$ 


2$: 


° 
** 
° 


seaTES! 2 


“*TEST 3 


RO .PSW 


PSW 
4 


#10000,R0 
#1$,$LPERR 
PSW 


~ ‘ateciaiin 


PSwW,R1 
#007777.R1 


;SET LOOP ON ERROR POINTER TO 2$ 

s INITIALIZE RO WITH MODE BITS = 0000 
INITIALIZE PSW 

:BIT SET THE PSW MODE BITS WITH RO 

;READ BACK THE CONTENTS OF THE PSwW 

sMASK OFF EVERYTHING EXCEPT THE MODE BITS 
;WERE THE MODE BITS SET CORRECTLY? 
;BRANCH IF YES 

;CLEAR PSW FOR ERROR REPORT 

:MODE BITS SET WRONG IN PSW 

3FOR TIGHTER SCOPE LOOP 

sREPLACE ERROR CALL WITH 

;'Br 2$°° = 000763 

; CHANGE MODE BIT DATA 

;BRANCH IF STILL MORE COMBINATION 
sRESET LOOP ON ERROR POINTER TO 1 
ZRESET PSW BEFORE LEAVING 


S 
$ 


REE EER ERA REAR EERAEEAEKEEKEEEE 


BYTE ADDRESSING TEST FOR PSwW 


THIS TEST WRITES THE HIGH AND LOW BYTES OF THE PROCESSOR STATUS WORD 
AND READS THEM BACK TO BE SURE THEY CAN BE WRITTEN INDEPENDENTLY. 


SEQ 0029 


E 3 
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MD=11=CJKDA“B KTF11=AA MMU DI 
CJKDAB.P11 11=JUN=79 13:10 T3 BYTE ADDRESSING TEST FOR PSW SEQ 0030 
1399 
1400 SARAH 
1401 020734 000004 TST3: SCOPE 
1402 020736 012737 020744 001110 18: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
1403 020744 005037 177776 2$: CLR PSW “CLEAR THE PSW 
1404 020750 012700 000360 MOV #360,RO -PUT THE HIGH BYTE DATA INTO RO 
1405 020754 110037 177777 MOVB RO, PSw+1 :WRITE THE HIGH BYTE OF THE PSW 
1406 020760 013701 177776 MOV PSW,R1 “READ BACK THE ENTIRE PSW 
1407 020764 042701 007437 BIC #007437,R1 :MASK OFF THE T & CC BITS 
1408 020770 000300 SWAB ~—Ss RO :GET DATA WRITTEN IN HIGH BYTE OF RO 
1409 020772 020001 CMP RO,R1 “WAS THE PSW WRITTEN TO CORRECTLY 
1410 020774 001403 BEQ 3$ sBRANCH IF YES 
1411 020776 005037 177776 CLR PSwW :CLEAR PSW FOR ERROR REPORT 
1412 021002 104005 ERROR 5 =LOW BYTE EFFECTED BY WRITE TO HIGH BYTE OF PSW 
1413 :FOR TIGHTER SCOPE LOOP 
1414 ; REPLACE ERROR CALL WITH 
1415 :"BR 2$'' = 000760 
1416 021004 012737 021012 001110 3$: MOV #4$,$LPERR “SET LOOP. ON ERROR POINTER TO 4$ 
1417 021012 005037 177776 4$: CLR PSW “CLEAR THE P 
1418 021016 012700 000340 MOV #340,RO “PUT THE tow BYTE DATA INTO RO 
1419 021022 110037 177776 MOVB _—RO,, PSW “WRITE THE LOW BYTE OF THE PSW 
1420 021026 013701 177776 MOV PSW,R1 :READ BACK THE ENTIRE PSW 
1421 021032 042701 007437 BIC #007437,R1 :MASK OFF THE T&CC BITS 
1422 021036 020001 CMP RO,R1 :WAS PSW WRITTEN TO CORRECTLY 
7°33 021040 001403 BEQ 5$ “BRANCH IF YES 
14€4 021042 005037 177776 CLR PSW :CLEAR PSW FOR ERROR REPORT 
1425 021046 104005 ERROR 5 :HIGH BYTE EFFECTED BY WRITE TO LOW BYTE OF PSw 
1426 :FOR TIGHTER SCOPE LOOP 
1427 :REPLACE ERROR CALL WITH 
1428 "BR 2$'' = 000736 
1429 021050 012737 020736 001110 5S: MOV #1$,$LPERR :RESET LOOP ON ERROR POINTER TO 1$ 
1431 SD IIIT IT TT TT TI III III KKM K ER KK 
1432 “*TEST 4 TEST AND SETUP OF STACK POINTERS : 
‘* 
1434 :* THIS TEST SETS THE USER AND KERNEL STACK POINTERS FOR THE 
1435 zk REST OF THE PROGRAM AND MAKES SURE THEY ARE INDEPENDENT 0 
1436 :* EACH OTHER. KERNEL R6 IS SET TO 1100, USER R6 IS SET TO 500. THEN 
oy 4 ;* KERNEL R6 IS READ TO BE SURE ITS STILL 1100. 
2o 
1439 SUES SIOIOI ISIC IOISISIOISIIOI IOI ISTIC OI IOI IOI IO ok 
1440 021056 000004 TST4: SCOPE 
1441 021060 005037 177776 CLR PSW :GO TO KERNEL MODE 
1442 021064 012706 001100 MOV #KERSTK,KSP :SET KERNEL STACK POINTER TO 1100 
1443 021070 012737 149000 177776 MOV #140000, PSW :GO TO USER MODE 
1444 021076 012706 000700 MOV #USESTK USP “SET USER STACK POINTER TO 700 
1445 (021102 005037 177776 CLR PSW *BACK TO KERNEL MODE 
1446 021106 022706 001100 CMP #KERSTK,KSP 71S KERNEL R6 STILL 1100? 
1447 021112 001404 BEQ TSTS : BRANCH IF KERNEL R6 IS OKAY 
1448 021114 012700 001100 MOV #KERSTK,RO -SAVE DATA WRITTEN FOR ERROR REPORT 
1449 021120 010601 MOV KSP,R1 :SAVE DATA READ AFTER USER R6 WAS WRITTEN 
1450 021122 104006 ERRCOR 6 “KERNEL R6 CHANGED BY WRITING USER R6 
1451 : :FOR TIGHTER SCOPE LOOP 
1452 “REPLACE ERROR CALL WITH 
1453 -000756 


F 
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10 T4 TEST AND SETUP OF STACK POINTERS SEQ 0031 


CJKDAB.P11 11=JUN=79 13: 


1455 SRE RRR EERE EKER EEE REE EKER EERE EE 
1457 ;* THE NEXT FIVE (5) TESTS WILL TRY TO ADDRESS ALL OF THE 
1458 .* MEMORY MANAGEMENT REGISTERS (SRO,SR1,SR2,SR3,KERNEL & USER PAR/PDR'S). 
1459 he EVERY TIME A REGISTER TIMES OUT ITS ADDRESS WILL BE REPORTED. 
1460 “he AT THE END OF EACH TEST A SUMMARY OF THE ADDRESSES THAT TIMED. 
1461 ;* OUT DURING THAT TEST IS GIVEN. THE RESULTS OF ‘‘AND-ING'' AND '‘OR-ING'' 
1462 7% THEIR ADDRESSES IS GIVEN TO SHOW WHICH ADDRESS LINES MAY BE 
1465 pei STUCK AT 0 OR 1. _ THE PAR/PDR ADDRESS AND KT MUX'S ARE THE 
1088 ” THINGS BEING CHECKED. 
* 
1466 PU TITITITIIIT IIIT ITIL ITT TTTT TTT TIT TT TTTTTTTTTTTT TTT TTT TT TTTeee 
1467 
1468 
1469 FD KKK RRR KE RK KREEEEKEREKEEEKEK EERE K 
eA S*TEST 5 SRO,SR1,SR2,SR3 TIMEOUT TEST 
** 
1472 “hes THIS TEST ADDRESSES THE MEMORY MANAGEMENT STATUS REGISTERS 
1473 = 0, AND 3. STATUS REG. 1 IS NOT USED BUT SHOULD STILL 
1474 ;* RESPOND TO ITS UNIBUS ADDRESS. DATA WILL BE WRITTEN OR READ 
1475 sf FROM THESE REGISTERS IN LATER TESTS, THIS TEST JUST CHECK 
ons ;* FOR A RESPONSE. 
-* 
1478 SOIC ISIS IOI ICI IO ISIS SISSIES ISIC III II ITI TTR TORT AAT SAA TM 
ican 021124 000004 TST5: SCOPE 
1481 021126 012737 021170 901110 1S: MOV #2$,$LPERR SET LOOP ON ERROR POINTER TO 2$ 
1482 021134 012737 021232 000004 MOV #5$ 044 ;SET TIMEOUT VECTOR TO 5$ 
1483 021142 012700 177572 MOV #SRO,RO sLOAD RO WITH ADDRESS OF FIRST REG. 
1484 021146 0127C1 000003 MOV #3,R1 sLOAD R1 WITH THE LOOP COUNT 
1485 021152 012737 177777 001300 MOV #-1 ,ANDADR s INITIALIZE “‘AND’* OF ADDRS. LOC. 
1486 021160 005037 001302 CLR ORADR ; INITIALIZE ‘‘OR'' OF ADDRS. LOC. 
1487 021164 005037 001304 CLR TONUM s INITIALIZE *‘TIMEOUTS'* COUNTER 
1488 021170 005710 2$: TST (RO) TRY ADDRESSING A STATUS REGISTER 
1489 IF IT TIMES OUT GO TO 5$ 
1490 021172 062700 000002 3$: ADD #2 ,RO ;PUT NEXT ADDRESS IN RO 
1491 021176 077104 SOB R1,2$ sLOOP BACK TO 2$ UNTIL ALL TESTED 
1492 021200 005737 172516 TST a4172516 :CHECK SR3 FOR RESPONSE 
1493 :IF IT TIMES OUT GO TO 5$ 
1494 021204 012737 621126 001110 MOV #1$,$LPERR sRESET LOOP ON ERROR POINTER TO 1$ 
1495 021212 005737 001304 TST TONUM DID ANY 7 THE STATUS REG.S TIMEOUT? 
1496 021216 001401 BEQ 4$ ;BRANCH IF NO 
1497 021220 104010 ERROR 10 ;SUMMARY OF STATUS REG. TIMEOUTS 
1498 021222 012737 002076 000004 4$: MOV ATIMERR ,@a4 ;RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
Lp 021230 000414 BR TST6 ;;GO TO NEXT TEST 
1501 021232 062706 000004 5$: ADD #4 ,KSP CLEAN UP THE STACK 
1502 021236 104007 ERROR 7 ;ONE OF THE STATUS REGS. TIMED OUT 
1503 sFOR TIGHTER SCOPE LOOP 
1504 ;REPLACE ERROR CALL WITH 
1505 :'BR 2$°* = 000756 
1506 021240 010002 MOV RO,R2 ;LOAD THE ADDRESS THAT TIMED OUT INTO R2 
1507 021242 050237 001302 BIS R2,ORADR ;| 'OR'* IT WITH OTHER ADDRS. THAT TIMED OUT 
1508 021246 005102 COM Re ;‘AND'' IT WITH OTHER ADDRS. THAT TIMED OUT 
1509 021250 040237 001300 BIC Re ,ANDADR 
1510 021254 005237 001304 INC TONUM INCREMENT THE TIMEOUT COUNTER 


G 3 
AG MACY11 30A(1052) JTi=JUN=79 13:21 PAGE 32 


MD-11=CJKDA=B KIF11=AA MMU DI 
CJKDAB.P11 11=JUN=79 13:10 15 SRO,SR1,SR2,SR3 TIMEOUT TEST SEQ 0032 

1833 021260 000744 BR 3$ ;BRANCH BACK TO TEST THE NEXT ADDR. 
1ex8 SR TTI TTR KE ERR ERR EEE REE EEE EERE EERE EEE 
1éi¢ :*TEST 6 KERNEL PAR'S TIMEOUT TEST 

*?® 
1516 ;* THIS TEST ADDRESSES THE EIGHT (8) KERNEL PAGE ADDRESS 
1517 ;* REGISTERS (KIPARO=KIPAR7) AND CHECKS THAT SOMETHING 
1216 ;* RESPONDS T9 THEIR ADDRESSES. 

- 
1520 PETIT ICIITITICI TTT T ITT TTT ITITTTTTITETTTT TTT TTT TTT TTT TTT TTTeTe 
12g) 021262 000004 TST6: SCOPE 
1523 021264 012737 021326 001110 1$: MOV #2$,$LPERR ;SET LOOP ON ERROR POINTER TO 2$ 
1524 021272 012737 021364 000004 MOV #53 044 ;SET TIMEOUT VECTOR TO 5$ 
1525 021300 012700 172340 MOV #KIPARO, RO ;LOAD RO WITH ADDRESS OF Ha REG. 
1526 021304 012701 000010 MOV #10,R1 ;LOAD R1 WITH LOOP COUNT (8) 
1527 021310 012737 177777 001300 MOV #-1 ,ANDADR s INITIALIZE “‘AND’’ OF ADDR. LOC 
1528 021316 005037 001302 CLR ORADR : INITIALIZE ‘‘OR'' OF ADDR. LOC. 
1529 021322 005037 001304 CLR TONUM ; INITIALIZE ‘’TIMEQUTS'’ COUNTER 
1530 021326 005710 2$: TST (RO) TRY ADDRESSING A KIPAR 
1531 :IF IT TIMES OUT, WILL GO TO 5$ 
1532 021330 062700 000002 3$: ADD #2,RO :PUT NEXT KIPAR ADDRESS IN RO 
1533 021334 077104 SOB R1,2$ ;LOOP BACK TO 2$ UNTIL ALL TESTED 
1534 0621336 012737 021264 001110 MOV #1$,$LPERR sRESET LOOP ON ERROR POINTER TO 1$ 
1535 021344 005737 001304 TST TONUM ;DID ANY OF THE KIPARS TIME OUT? 
1536 021350 001401 BEQ 4$ ;BRANCH IF NO 
1537 021352 104010 ERROR 10 ; SUMMARY OF KIPAR TIMEOUTS 
1538 021354 012737 002076 000004 4$: MOV ATIMERR,@a4 ;RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
12a, 021562 000414 BR TST7 ::GO TO NEXT TEST 
1541 021364 062706 000004 5$: ADD #4 ,KSP ;CLEAN UP THE STACK 
1542 021370 104007 ERROR 7 sONE OF THE KIPARS TIMED OUT 
1543 ;FOR TIGHTER SCOPE LOOP 
1544 sREPLACE ERROR CALL WITH 
1545 ;*BR 2$°* = 000756 
1546 021372 010002 MOV RO,R2 ; LOAD THE “ADDRESS THAT TIMED OUT INTO R? 
1547 021374 050237 001302 BIS R2,0RADR ; OR" IT WITH OTHER ADDRS. THAT TIMED OUT 
1548 021400 005102 COM R2 ;‘’AND'' IT WITH OTHER ADDRS. THAT TIMED OUT 
1549 021402 040237 001300 BIC R2,ANDADR 
1550 021406 005237 001304 INC TONUM ; INCREMENT THE TIMEOUT COUNTER 
12e5 021412 000746 BR 3$ ;BRANCH BACK TO TEST THE NEXT KIPAR 
1553 SD IRE KR ERREEEERREREREREEEEEERERER EERE 
1eee :*TEST 7 KERNEL PDR*S TIMEOUT TEST 

*® 
1556 ;¢ THIS TEST ADDRESSES THE EIGHT (8) KERNEL PAGE DESCRIPTOR 
1557 7% REGISTERS (KIPDRO=-KIPDR7) AND CHECKS THAT SOMETHING 
eae ;* RESPONDS TO THEIR ADDRESSES. 

"* 
1560 UT TTITTTITT TITTLE TITTLE TITTT TITTLE TITTLE T TTT TTT TTT TTT TTT 
12¢3 021414 000004 TST7: SCOPE 
1563 021416 012737 021460 001110 1$: MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2% 
1564 021424 012737 021516 000004 MOV 45% 044 ;SET TIMEOUT VECTOR TO 5$ 
1565 021432 012700 172300 MOV #K IPDRO,RO ;LOAD RO WITH ADDRESS OF FIRST REG. 
1566 0214356 012701 000010 MOV #10,R1 ;LOAD R1 WITH LOOP COUNT (8) 


11-JUN-79 


13:21 


#-1 ,ANDADR 
ORADR 


#2 ,RO 
R1,2$ 
#1$,$LPERR 
TONUM 

4$ 

10 

ATIMERR ,aa4 
TST10 


#4 ,KSP 
4 


RO.R2 
— 


R 
R2,ANDADR 
TONUM 

3$ 


H 3 
PAGE 33 
KERNEL PDR'S TIMEOUT TEST 


SEQ 0033 


s INITIALIZE — AND’ OF ADDR. LOC 
s INITIALIZE ‘‘OR’* OF ADDR. LOC. 
; INITIALIZE ‘"TIMEQUTS** COUNTER 


DID ANY OF THE KIPDRS TIME OUT? 
ANCH IF 


NO 
; SUMMARY OF KIPDR TIMEOUTS 
:RESTORE NORMAL CPU 
:3G0 TO NEXT TEST 


:CLEAN UP THE STACK 

:ONE OF THE KIPDRS TIMED OUT 
>FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 

;' BR 2$°* = 000756 


; LOAD THE ADDRESS THAT TIMED OUT INTO R2 
“"OR'' IT WITH OTHER ADDRS. THAT TIMED QuT 
:""AND'* IT WITH OTHER ADDRS. THAT TIMED OuT 


: INCREMENT THE TIMEOUT COUNTER 
sBRANCH BACK TO TEST THE NEXT KIPDR 


TRAP ROUTINE ADDRESS 


CER RKKERKEKRKEKKK EKER EKEKEKKKEKEKEEKKEKEEKEKEEEEKEKEEKEKEKEKEKREKEKEK 


USER PAR'S TIMEOUT TEST 


THIS TEST ADDRESSES THE EIGHT (8) USER PAGE ADDRESS 
REGISTERS (UIPARO-UIPAR7) AND CHECKS THAT SOMETHING 
RESPONDS TO THEIR ADDRESSES. 


MD-11=CJKDA=B KTF11=AA MMU DIAG MACY11 megs 5e) 
CJKDAB.P11 11=JUN-79 13:10 
1567 021442 012737 177777 001300 MOV 
1568 621450 005037 001302 CLR 
1569 021454 005037 001304 CLR 
12 021460 005710 2$: TST 
1572 021462 062700 000002 3$: ADD 
1573 021466 077104 SOB 
1874 021470 012737 021416 001110 MOV 
1575 021476 005737 001304 TST 
1576 021502 001401 BEQ 
1577 1504 104010 ERROR 
1578 021506 012737 002076 000004 4$: MOV 
1enn 021514 14 BR 
1581 021516 062706 000004 5$: ADD 
1582 021522 104007 ERROR 
1583 
1584 
1585 
586 021524 010002 MOV 
1587 021526 050237 001302 BIS 
588 021532 005102 COM 
1589 1534 040237 001300 BIC 
1590 021540 005237 001304 INC 
1591 021544 74 BR 
1592 
1593 
1594 seTeS! 10 
1595 
1596 an 
1597 :* 
1598 °@ 
1599 ‘ 
1600 -s 
1602 021546 000004 TST10Q: SCOPE 
1603 021550 012737 021612 001110 1$: MOV 
1604 021556 012737 021650 000004 MOV 
1605 021564 12700 177640 MOV 
1606 021570 012701 010 MOV 
1607 021574 12737 177777 001300 MOV 
1608 021602 005037 001302 CLR 
1609 021606 005037 001304 CLR 
yo 021612 005710 2$: TST 
1612 021614 062700 000002 3$: ADD 
1613 021620 077104 SOB 
1614 021622 012737 021550 001110 MOV 
1615 021630 005737 001304 TST 
1616 1634 1401 BEQ 
1617 021636 104010 ERROR 
1618 021640 012737 002076 000004 4$: V 
Ly gh 021646 414 
1621 021650 062706 000004 5$: ADD 
1622 021654 104007 ERROR 


#2$ ,$LPERR 
#5$ a4 
AUIPARO,RO 
#10,R1 

4-1 ,ANDADR 
ORADR 


R1,2$ 
#1$,$LPERR 
TONUM 

4$ 


10 
AT IMERR ,aA4 
TST11 


7 


SEEKER KEKE ERR KKK KEKE KEKEEEKEKEEEKKKKKKKKEK 


:SET LOOP ON ERROR POINTER TO 2$ 
;SET TIMEOUT VECTOR TO 5$ 
:LOAD RO WITH yg: Be —" REG. 


:LOAD R1 WITH LOOP COUNT ¢ 
s INITIALIZE ‘‘AND’' OF ADDR. LOC 
s INITIALIZE ‘OR'* OF OC. 


ADDR. L 
; INITIALIZE ‘'TIMEOUTS'' COUNTER 
; TRY ett ary A UIPAR 
:IF IT TIMES OUT, oe 5$ 


“DID ANY OF THE UIPARS TIME OUT? 
;BRANCH IF 


NO 
; SUMMARY OF UIPAR TIMEOUTS 
;RESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
:3GO TO NEXT TEST 


;CLEAN UP THE S 
[ONE OF THE HIPARS. TIMED OUT 





MD-11=CJKDA=B KTF11=AA MMU D 
11=JUN=79 1 


CJKDAB.P11 


021656 
021660 
21664 


021666 
021672 
021676 


021700 
021702 


021744 
021746 


000004 
012737 


I 
13:10 


001302 


001300 
001304 


RS onns 


000002 
021702 
001304 
002076 


000004 


001302 


001300 
001304 


AG MACY11 30A(1052) 
T10 


001110 
000004 


001300 


001110 


000004 


I 3 
1i-JUN=79 13:21 PAGE 34 
USER PAR'S TIMEOUT TEST 


;FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
2$'' = 000756 


MOV RO,R2 “LOAD THE “ADDRESS THAT TIMED OUT INTO R2 
BIS R2,ORADR SOR’! IT WITH OTHER ADDRS. THAT TIMED OuT 
COM R2 ;' AND'’ IT WITH OTHER ADDRS. THAT TIMED OUT 


BIC R2,ANDADR 
INC TONUM : INCREMENT THE TIMEOUT COUNTER 





BR 3$ ;BRANCH BACK TO TEST THE NEXT UIPAR 
FERRER EKER EKER EEKEKEKEKKERKEEEREKEKEEEEEEEEEEEEKERERKEKEREKEE 
“STEST 11 USER PDR'S TIMEOUT TEST 
oe 
3* THIS TEST ADDRESSES THE EIGHT (8) USER PAGE DESCRIPTOR 
;* REGISTERS (UIPDRO-UIPDR7) AND CHECKS THAT SOMETHING 
:* RESPONDS TO THEIR ADDRESSES. 
** 
TIRE ISIS IIO SISSIES SITIOS IIIS IIIA fit tet 
TST11: SCOPE 
1$ MOV #2$.,$LPERR ;SET LOOP ON ERROR POINTER TO 2$ 
MOV #5$ ,a44 ;SET TIMEOUT VECTOR TO 5$ 
MOV #UIPDRO,RO “LOAD RO WITH ADDRESS OF FIRST REG. 
MOV #10,R1 sLOAD R1 WITH LOOP COUNT (8) 
MOV #-1,ANDADR s INITIALIZE ‘‘AND** OF ADDR. LOC 
CLR ORADR s INITIALIZE *‘OR'’ OF R. LOC 
CLR TONUM s INITIALIZE ‘‘TIMEOUTS** COUNTER 
2$: TST (RO) ; TRY ADDRESSING A UIPDR 
:IF IT TIMES OUT, WILL GO TO 5$ 
3$: ADD #2,R0 ;PUT NEXT UIPDR ADDRESS IN RO 
SOB R1,2$ ;LOOP BACK TO 2$ UNTIL ALL TESTED 
MOV #1$,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
TST TONUM ;DID ANY OF THE UIPDRS TIME OUT? 
BEQ 4$ : CH IF NO 
ERROR 10 ; SUMMARY OF UIPDR TIMEOUTS 
4$: V #TIMERR,aa4 sRESTORE NORMAL CPU TRAP ROUTINE ADDRESS 
BR TST12 3:GO TO NEXT TEST 
5$: ADD #4 ,KSP ;CLEAN UP THE STACK 
ERROR 7 sONE OF THE UIPDRS TIMED OUT 
;FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
He <> = coeeae 
MOV RO,R2 LOAD THE ADDRESS THAT TIMED OUT INTO R2 
BIS R2,ORADR 3; ‘OR'* IT WITH OTHER@ADDRS. THAT TIMED OUT 
COM R2 3’ ‘AND’ IT WITH GTHE DRS. THAT TIMED OuT 
BIC R2,ANDADR 
INC TONUM ; INCREMENT THE TIMEOUT COUNTER 
BR 3$ ;BRANCH BACK TO TEST THE NEXT UIPDR 
pg MERA EERE RARER EEE EE RRR EREERAEARREREKEERRER ERE 
;*TEST 12 SRO(15: bie od TEST & SR2 TEST 
fe THIS TEST CHECKS BITS <15:13> OF STATUS REGISTER O TO SEE 
:* THAT EACH CAN BE SET AND CLEARED AND THAT A ‘RESET’ WILL 
;* CLEAR ALL OF THEM. 


SEQ 0034 


MD-11-CJKDA=B KTF11=AA MMU , 


CJKDAB.P1% 


1706 


33s 


TN) ek ed ed ed os od od od 


NS NN SN SSW “WSUWW"W ICSU SJ SJ 
MN 


WN — SO OONAOULSWN Oo 


NS 
N 


SIS 
MN 
wi & 


022032 


022052 


022054 
0 


022150 


022154 
022156 


11=JUN- 


000004 
012700 
012710 
000005 
011001 
001404 
104011 


012737 


10 
012737 


79 13: 


] 
0 


177572 


160000 


001274 
022122 


100000 
000003 


022124 
177576 
001274 


022034 


AG MACY11 304(1052) 
T12 


001110 
001274 


001170 


001274 


001110 


1i=JUN=79 13:21 PAGE 35 
SRO(15:13) BIT TEST & SR2 TEST 


.* THE REST OF BITS IN SRO WILL BE CHECKED LATER. 
:* ALSO CHECK THAT SR2 IS TRACKING WITH MEM. MGMT. 
:* OFF BUT LOCKS UP WHEN ANY OF SRO ERROR BITS SET. 
** 
SIAC ISIC IISISISIDIOI IOI SIOISIIOIOIIOIOIISIOIOI IDOI IOI IOI OIC I IR If tote 
TST12: SCOPE 
1$: MOV #SRO,RO : LOAD ADDRESS OF SRO INTO RO 
V #160000, (RO) ;SET BITS <15:13> IN SRO (ERROR BITS) 
RESET SSUE AN “INIT SIGNAL 
MOV (RO) .R1 :READ SRO INTO R1 TO SEE IF CLEAR 
BEQ 2$ BRANCH IF SRO<15:13> CLEARED BY ‘‘INIT*’ 
ERROR 11 : SROC15 13> NOT CLEARED BY A ‘RESET’ 
“FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
:'BR 1$'° = 000770 
MOV #2$,$LPERR “SET LOOP ON ERROR POINTER TO 2$ 
2$: MOV SR2,WASSR2 “READ CONTENTS OF SR2 
MOV #2$.R1 : LOAD EXPECTED CONTENTS INTO R1 
CMP R1,WASSR2 S SR TRACKIN ING? 
BEQ 3$ F YES 
ERROR 41 SRO NOT ‘*‘TRACKING'’ VIRTUAL ADDRESSES 
-FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
"BR 2$'' = 000767 
3$: MOV #4$,$LPERR “SET LOOP ON ERROR POINTER TO 4$ 
MOV #B1T15,R1 :PUT DATA TO BE WRITTEN IN R1 
MOV #3,R3 :SETUP R3 AS A LOOP COUNTER 
4$: CLR (RO) =CLEAR SRO 
S$: BIS R1, (RO) “SET ONE OF THE ERROR BITS IN SRO 
MOV (RO) ,R2 *READ SRO INTO R2 
CMP R1,R2 *DID RIGHT ERROR BIT GET SET? 
BEQ 6$ *BRANCH IF YES 
ERROR 12 “BITS WERE SET WRONG IN SRO 
:FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
"BR 4$'' = 000772 
6$: MOV #5$,R4 “LOAD EXPECTED CONTENTS OF SR2 IN RG 
MOV SR2.WASSR2 “READ SR2 
CMP R4,WASSR2 “DID SR2 LOCK UP WHEN ERROR 
“BIT SET IN SR1? 
BEQ 7$ “BRANCH IF YES 
ERROR 64 : SR2 DID NOT LOCK UP 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
"BR 4$"' = 000761 
7$: ROR R1 ; CHANGE DATA TO CHECK NEXT ERROR BIT 
SOB R3,4$ BACK UNTIL <15:13> ALL TESTED 
CLR (RO) CLEAR SRO BEFORE LEAVING 
MOV #1$,$LPERR “RESET LOOP ON ERROR POINTER TO 1$ 
CREAR ARERR EEEEEEKKKEEREEEEKEEEEEEEEEEEKEKEREKEKKERKREKSE 
SSTEST 13 SRO & PSW DUAL ADDRESSING TEST 
** 
oe THIS TEST CHECKS MORE OF THE ADDRESS DETECTION LOGIC BY 
:* VERIFYING THAT STATUS REGISTER 0 IS NOT EFFECTED BY WRITING 


SEQ 0035 


MD-11=CJKDA=8 KTF11=4A MMU D 
11=JUN=79 15:1 


CJKDAB.P11 


022174 
022176 


022220 


022222 
022226 


022232 
027234 
022246 


022250 


022302 


022737 


000004 


] 
0 


177776 
177572 


000349 
177572 


177572 
177776 


177777 
177574 


177777 
000060 


172516 


AG MACY11 30A(1052) 
113 


K 3 
11=JUN=79 13:21 PAGE 36 
SRO & PSW DUAL ADDRESSING TEST 


;* TO THE PSW AND THAT THE LOW BYTE OF STATUS REGISTER 0 
;* IS NOT EFFECTED BY WRITING TO ITS HIGH BYTE. THIS JS TO 
;* SEE !F ADJACENT OUTPUTS ARE SHORTED ON THE ADDRESS DET. LOGIC. 
‘® 
TT TTI III TITIL TLL LLL LILLE LETTE TTT TTT TTT TTT tte 
TST13: SCOPE 
1$ CLR PSW ;CLEAR THE PSW 
CLR SRO ;CLEAR STATUS REGISTER 0 
MTPS #340 ;SET PRIORITY 7 IN LOW BYTE OF PSwW 
MOV SRO,RO ;READ STATUS REGISTER 0 
BEQ 2$ ;BRANCH IF IT WAS STILL O 
ERROR 13 ;SRO EFFECTED 8Y A WRITE TO THE PSW 
;FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
:‘BR 1$°* = 900767 
2$: CLR SRO “BE SURE SRO IS 0 BEFORE LEAVING 
CLR PSW = BE SURE PSW IS 0 BEFORE LEAVING 
CER AERAKCRRREREKKEKEKKKKEEKEKEEEKKREKEEREEKREKEKEEERKEKEKEEREEKEKEKKREKE 
“RTEST 14 TEST THAT SR1 READS ALL ZEROS 
** 
:* THIS TESTS CHECKS THAT STATUS REGISTER 1 
ye RESPONDS WITH ALL ZEROS, AND THAT ONLY BITS<5:4> 
;* OF STATUS REGISTER 3 ARE WRITEABLE. 
** 
TICES ISIS ISIS ISISISISIOIIIOUISIIUOOIIIOIIIUI III DU ntti itt 
TS714: SCOPE 
1$: MOV #=-1 ,RO sFILL RO WITH ALL ONES 
MOV SR1,RO “READ SR1 INTC RO 
BEQ 2$ “BRANCH IF SR1 READS ALL ZEROS 
ERROR 14 3;SR1 DID NOT READ ALL ZEROS 
“FOR TIGHTER SCOPE LOOP 
“REPLACE ERROR CALL WITH 
3000772 
2$: MOV #-1,SR3 ;TRY TO WRITE ONES TO SR3 
Sa * lian sONLY BITS <5:4> SHOULP BE ONES 
ERROR 12 ;DIDN'T READ BACK A ‘60°’ 


3$: RESET ;CLEARS SR3 


= TST SR3 “VERIFY THAT IT WAS CLEARED 
BEQ TST15 ::BRANCH IF SR3 READ ALL ZEROS 
ERROR 12 =SR3 DIDN'T READ ALL ZEROS 
FREER EEE KE 
SRTEST 15 BIT TEST OF KERNEL & USER PAR'S 
** 
ie THE FOLLOWING TEST CHECKS THE BITS <15:00> OF BOTH THE KERNEL 
* AND USER PAGE ADDRESS REGISTERS. A ‘0'' IS ROTATED THRU 
zt THE REGISTERS FROM LEFT TO RIGHT. 
** 
PETIT ILI TELELITEL TLE LT TELE TU LETTE TTT TTT TTT TTT TTT TTT Tee 
TST15: SCOPE 


SEQ 0036 


MD-11=CJKDA-B KTF11=AA MMU 


CJKDAB.P11 


1791 


32 


SaCe GRE CoS SeLeeE 


00 00 09 00 00 00 00 00 OO C0 CO 


FA) ed ed ed et sd td 2d od od 
OVOWONAUSWN—O 


022412 


11=JUN=79 


2700 
2703 
2737 
5 
1 
1 


000 
012737 


IAG MACY11 30A(1052) 
13:10 715 


172340 1$: 
000010 2$: 
022322 001110 


077777 4$: 
022344 001110 - 


6$: 


000002 
177660 
177640 
022304 001110 7$: 


2 
PAGE 


;SETUP R 


LOOP . —— POINTER TO 3$ 


;SET 
;CLEAR THE P 


:READ THE PAR INTO R1 
;BRANCH IF PAR CLEARED OK 


WOULD NOT 
FOR TIGHTER 


CLEAR 
SCOPE LOOP 


;REPLACE ERROR CALL WITH 
= 000774 


; BR 33" 


; LOAD "WALKING O°’ TEST PATTERN IN R4 
TO 5$ 


ING DATA 
:BIT SET THE TEST so INTO THE PAR 


sREAD THE PAR INTO R 
[DOES DATA WRITTEN=DATA READ? 
:BRANCH IF YES 


> SETUP FOR ERROR REPORTING 
;PAR BITS DID NOT SET CORRECTLY 


;FOR TIGHTER S 


COPE LOOP 


; REPLACE ERROR CALL WITH 
= 000767 


; BR 5$*' 


:SET THE C-BIT FOR THE ake 


;ROTATE THE TEST PATTERN IN 


BRANCH BACK 
:GET NEXT PAR 


R 
;BRANCH BACK UNTIL ALL PAR'S TESTED 


K IF MORE BITS sy TEST 


ADDRESS IN 


;LOAD ADDRESS OF FIRST PAR IN RO 
R3 TO COUNT 8 


sHAVE USER ; oa © BEEN TESTED 


BRANCH IF 


LOAD FIRST USER PAR ADDR. 
CH BACK TO TEST USER PAR'S 


1i=JUN=79 13:21 37 
BIT TEST OF KERNEL & USER PAR'S 
MOV #KIPARO,RO 
MOV #10,R 
MOV #3$,$LPERR 
CLR (RO) 

MOV (RO) ,R1 
BEQ 4$ 

ERROR 11 

MOV #077777 Re 
MOV #5$,$LPERR 
CLR (RO) 

BIS R4, (RO) 
MOV (RO) ,R2 
CMP RL R2 

BEQ 6s 

MOV R4,R1 
ERROR 12 

SEC 

ROR R4 

BCS 5$ 

ADD #2,R0 

SOB R3,3$ 

CMP #UIPAR7+2,RO 
BHIS 7 

MOV #UIPARO,RO 
BR 2$ 

MOV #1$,$LPERR 


IN RO 


“RESET LOOP OR ERROR POINTER 


TO 1$ 
sLEAVE TEST WITH BITS <11:1>=1 IN ALL PAR'S 


SEQ 00357 


MD-11=CJKDA=B KTF11=AA MMU D 
11=JUN=-79 13:1 


CJKDAB.P11 


1842 


022420 
022422 


322446 


022450 


022542 


000004 
012700 


000 
012737 


000004 


] 
0 


172300 
000010 
022446 


077777 
022462 


100361 


000002 
177620 
177600 
022422 


AG MACY11 30A(1052) 
T16 


001110 


001110 


001110 


1i=JUN=79 13:21 


M 3 
PAGE 38 
BIT TEST OF KERNEL & USER PDR‘'S 


SAREE EKEKEKEEEAEEREEREKEEKRREAKEEERKEEREKEEEREREREEREEKREREE 


<3:1> OF BOTH THE 
A ‘0°’ IS ROTATED 
TEST PATTERNS WILL 


SOME 
BE LOADED MORE THAN ONCE DUE TO THE UNUSED BITS IN THE PDR'S. 


RARER 


;LOAD ADDRESS OF FIRST PDR IN RO 
SETUP 8 PDR’ 


R35 TO COUNT 


:SET LOOP ON ERROR POINTER TO 3$ 
;CLEAR THE PDR 


sREAD THE PDR INTO R1 
;BRANCH IF PDR CLEARED OK 
:PDR WOULD NOT CLEAR 


; L 
:FOR TIGHTER SCOPE 


LOAD "WALKING 


LOOP 
;REPLACE ERROR CALL WITH 
; BR 3$"° = 000774 


"0" TEST PATTERN IN RG 
:SET LOOP ON ERROR POINTER TO 5$ 
;CLEAR THE PDR BEFORE LOADING DATA 
:LOAD DATA INTO R1 

;MASK UNUSED BITS OUT OF THE DATA 

:BIT SET THE TEST PATTERN INTO THE PDR 
sREAD THE PDR INTO R2 

sDOES DATA WRITTEN=DATA READ? 

;BRANCH IF YES 

:PDR BITS DID NOT SET CORRECTLY 

:FOR TIGHTER SCOPE LOOP 


;REPLACE ERROR CALL WITH 
;‘BR 5$°' = 000767 
:SET THE C-BIT 


FOR THE ROTATE INST. 
sROTATE THE TEST PATTERN IN R4 
;BRANCH BACK IF MORE BITS TO TEST 
:GET NEXT PDR ADDRESS IN RO 

BRANCH BACK UNTIL ALL PDR'S TESTED 
tt Be “~] S BEEN TESTED? 


sLOAD FIRST USER PDR ADDR. IN RO 


;BRANCH BACK TO TEST USER PDR'S 
sRESET LOOP ON 


ERROR POINTER TO 1$ 
or tenth « Be hae ALL WRITEABLE BITS IN 


FREER KKEEREEEEEKKEEEKEEEKEEKEEEREEEKEEEEREKEEEREEREREKE 


TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PAR'S 


THE FOLLOWING TEST WRITES TO BOTH BYTES OF THE KERNEL & USER 
PAR*S SEPERATELY TO SEE THAT WRITING TO ONE DOES NOT EFFECT 


'—MAAAALALALESESSSZALELELALAASSSELESSLES SELES ESE SEES ESET CCCP e ee eS 


:*TEST 16 BIT TEST OF KERNEL & USER PDR'S 
Se THE FOLLOWING TEST CHECKS THE BITS <14:8> AND 
:* KERNEL AND USER PAGE DESCRIPTOR REGISTERS. 
ze THRU THE REGISTERS FROM LEFT TO RIGHT. 
- 
: 
TST16: SCOPE 
1$: MOV #KIPDRO,RO 
2$: MOV #10,R : 
MOV #3$,$LPERR 
3$: CLR (RO) 
MOV (RO) .R1 
BEQ 4$ 
ERROR 11 
4$: MOV #077777 .RG 
MOV #5$,$LPERR 
5$: CLR (RO) 
MOV 
BIC 100361, R1 
BIS R1, (RO) 
MOV (RO) R2 
CMP 1,R2 
BEQ as 
ERROR 12 
6$: SEC 
ROR R4 
BCS 5$ 
ADD #2.RO 
SOB R3,3$ 
CMP MUIPDR7#2, RO 
BHIS 
MOV SUIPORO, RO 
7$: MOV #1$,$LPERR 
sALL P 
SRTEST 17 
** 
;* 
2 
ze THE OTHER. 
** 
S117: SCOPE 


SEQ 0038 


MD-11=CJKDA=8 KTF11-AA MMU . 


CJKDAB.P11 


022544 


11=JUN-79 13: 


2700 


005010 


] 
0 


172340 1$: 
022562 001110 28: 
000010 - 


177777 


AG MACY11 30A(1052) 
117 


11=JUN=79 13:21 
TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PAR'S 


#K IPARO ,RO 
#3$,$LPERR 
#10,R3 
#-1,R1 
(RO) 


N 3 
PAGE 39 


ter ADDRESS OF FIRST PAR INTO RO 


;LOAD TEST PATTERN INTO R1 
;CLEAR THE PAR 


SEQ 0039 


MD-11=CJKDA=B KTF11-AA MMU D 
11=JUN=79 13:1 
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1887 


022570 


110110 


012737 


] 
0 


022614 001110 


177777 
000001 


0003/7 


000002 
177660 
177640 


022544 001110 
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4$: 
5$: 


6$: 


1i=JUN=79 13:21 
TEST 
MOVB R71, (RQ) 
MOV (RQ) ,R2 
BIC #177400,R1 
CMP R1,R2 
BEQ 4$ 
ERROR 15 
MOV #5$,$LPERR 
CLR (RQ) 
MOV #-1,R1 
MOVB R1,1(RO) 
MOV (RO) ,R2 
BIC #000377,R1 
CMP , 
BEQ 6 
ERROR 15 
ADD #2,R0 
SOB R3,5$ 
CMP MUIPAR7+2,RO0 
BHIS 7$ 
MOV #UIPARO,RO 
BR 2$ 
MOV #1$,$1 PERR 


B 4 

PAGE 40 
FOR DUAL BYTE ADDRESSING OF KERNEL & USER PAR'S 
;WRITE 1°S TO THE LOW BYTE OF THE PAR 
READ THE ENTIRE PAR INTO R2 
;MASK HIGH BYTE & UNUSED BITS OUT OF THE DATA 
WAS ONLY THE LOW BYTE WRITTEN TO 
:BRANCH IF YES 
HIGH BYSE EFFECTED BY WRITING LOW BYTE IN PAR 
:FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
000766 


BR 53$'' = 


“SET LOOP ON ERROR POINTER TO 5$ 


;CLEAR THE P 
: LOAD TEST, PATTERN INTO R1 


ITE 1 


S TO THE HIGH BYTE OF THE PAR 


;READ THE ENTIRE PAR INTO R2 

:MASK LOW BYTE 

;WAS ONLY THE HIGH BYTE WRITTEN TO? 
“BRANCH IF YES 


;LOW BYTE EFFECTED BY WRITING HIGH BYTE IN PAR 
:FOR TIGHTER SCOPE LOOP 
sREPLACE ERROR CALL WITH 
; BR 5°" = 000765 


;PUT ADDRESS OF NEXT PAR IN RO 
;BRANCH BACK UNTIL 8 PAR'S TESTED 
;HAVE USER PAR‘S BEEN TESTED 

;BRANCH IF YES 

;LOAD ADDRESS OF FIRST USER PAR IN RO 
;BRANCH BACK TO TEST USER PAR'S 
;RESET LOOP ON ERROR POINTER TO 1$ 


SEQ 0040 


C 4 
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MD=11=CJKDA“B KTF11-Aa MMU DI : : 
CJKDAB.P11 11=JUN=79 13:10 T20 TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PDR'S SEQ 0041 
1916 SRR REAR ARR RRAETERERRR AREER REEREEREREERERE REE 
sat ;*TEST 20 TEST FOR DUAL BYTE ADDRESSING OF KERNEL & USER PDR'S 
4 - THE FOLLOWING TEST WRITES TO BOTH BYTES OF THE KERNEL & USER 
1921 
1922 
1923 ;* PDR'S aa TO SEE THAT WRITING TO ONE DOES NOT EFFECT 
1924 :* THE OTHER 
1926 SLR EERE EAR R ARERR ERA EAAERERERAEEEEEERREERERE EES 
ns 34 022672 000004 TST20: SCOPE 
1929 022674 012700 172300 1$: MOV #K IPDRO,RO !OAD ADDRESS OF FIRST PDR INTO RO 
1930 022700 012737 022712 001110 2%: MOV #3$,$LPERR “SET LOOP ON ERROR POINTER TO 3$ 
1931 022706 012703 000010 MOV #10,R3 :LOAD LOOP COUNTER TO DO 8 PDR'S 
1932 022712 012701 177777 3$: MOV #-1,R1 * LOAD TEST PATTERN INTO R1 
1933 022716 005010 CLR (RO) ;CLEAR THE PDR 
1934 022720 110110 MOVB R1, (RO) ;WRITE 1°S TO THE LOW BYTE OF THE PDR 
1935 022722 011002 MOV (RO) ,R2 ;READ THE ENTIRE PDR INTO R2 
1936 022724 042701 177761 BIC #177761,R1 ;MASK HIGH BYTE & UNUSED BITS OUT OF DATA 
1937 022730 020102 CMP R1,R2 ;WAS ONLY THE LOW BYTE WRITTEN TO? 
1938 022732 001401 BEQ 4$ ;BRANCH IF YES 
1939 022734 104015 ERROR 15 ;HIGH BYTE EFFECTED BY WRITING LOW BYTE IN PDR 
1940 ;FOR TIGHTER SCOPE LOOP 
1941 ZREPLACE ERROR CALL WITH 
1942 ;' BR 3$°' = 000766 
1943 022736 012737 022744 001110 4$: MOV #5$,$LPERR ;SET LOOP ON ERROR POINTER TO 5$ 
1944 022744 005010 5$: CLR (RO) ;CLEAR THE PDR 
1945 022746 012701 177777 MOV #-1,R1 ;LOAD TEST PATTERN INTO R1 
1946 022752 110160 000001 MOVB R1,1(RO) ;WRITE 1°S TO THE HIGH BYTE OF THE PDR 
1947 022756 011002 MOV (RO) ,R2 7READ THE ENTIRE PDR INTO R2 
1948 022760 042701 100377 BIC #100377,R1 ;MASK LOW BYTE & UNUSED BITS OUT OF DATA 
1949 022764 020102 CMP R1,R2 :WAS ONLY THE HIGH BYTE WRITTEN TO? 
1950 022766 001401 BEQ 6$ ;BRANCH IF YES 
1951 022770 104015 ERROR 15 ;LOW BYTE EFFECTED BY WRITING HIGH BYTE IN PDR 
1952 3FOR TIGHTER SCOPE LOOP 
1953 SREPLACE ERROR CALL WITH 
1954 ;'BR 5$°* = 000765 
1955 022772 062700 000002 6$: ADD #2,R0 ;PUT ADDRESS OF NEXT PDR IN RO 
1956 022776 077333 SOB R3,5$ ;BRANCH BACK UNTIL 8 PDR'S TESTED 
1957 023000 022700 177620 CMP #UIPDR7+2,R0 ;HAVE USER PDR'S BEEN TESTED? 
1958 023004 103003 BHIS 7$ :BRANCH IF YES 
1959 023006 012700 177600 MOV #UIPDRO,RO ;LOAD ADDRESS OF FIRST USER PDR IN RO 
1960 0235012 000732 BR 2$ : BRANCH BACK TO TEST USER PDR'S 
1961 023014 012737 022674 001110 /7$: MOV #1$,$LPERR :RESET LOOP ON ERROR POINTER T0 1% 
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023024 
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012737 


I 
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023046 


001100 


035274 
177777 
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035274 
177777 
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035274 
177777 
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001100 
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PAR=PDR DUAL ADDRESSING TEST 


SERA ARR ARAAA AEE AEE REREE 


:#TEST 21 PAR=PDR DUAL ADDRESSING TEST 
te THE FOLLOWING TEST SETS ALL OF THE WRITEABLE BITS TO 1 
;* IN THE SIXTEEN (16) PAR'S AND PDR'S USING THE '‘SETREG’ 
;* SUBROUTINE AND THEN CLEARS JUST ONE OF THEM. THE '‘CMPREG’' 
;* SUBROUTINE IS USED TO READ ALL OF THE PAR'S AND PDR'S TO SEE 
a THAT ONLY ONE REGISTER WAS CLEARED IN RESPONSE TO THAT ONE 
te PAR OR PDR ADDRESS. THE ‘‘CMPREG'’ SUBROUTINE REPORTS THE 
:* ADDRESS OF ANY REGISTER WHOSE BITS DID NOT REMAIN SET WHEN 
:* ANOTHER REGISTER WAS CLEARED. 
CREAR ARERR EERE REE 
18121: SCOPE 
1$: MOV #2$,$LPERR ;SET LOOP ON ERROR POINTER 2$ 
MOV #10.R3 :LOAD LOOP COUNTER WITH AN 8 
MOV #KIPDRO,RO :LOAD ADDRESS OF FIRST KERNEL PDR AND RO 
JSR PC,SETREG ;SET ALL BITS IN ALL PAR'S IN PDR'S 
2$: MOV §-« #KERSTK,,KSP :SETUP STACK POINTER 
CLR (RO) :CLEAR ONE OF THE KERNEL PDR'S 
JSR PC, CMPREG :SEE IF OTHER PAR/PDR'S WERE EFFECTED 
MOV #-1,(RO)+ ;RESTORE ALL ONES, AND SETUP FOR NEXT PDR 
SOB R3,2$ ;LOOP TO 2$ UNTIL ALL KERNEL PDR'S CHECKED 
MOV 38. $LPERR :SET LOOP ON ERROR POINTER TO 3$ 
MOV #10.R3 :LOAD LOOP COUNTER WITH AN 8 
MOV #KIPARO,RO :LOAD ADDRESS OF FIRST KERNEL PAR IN RO 
3$: MOV #KERSTK.KSP :SETUP STACK POINTER 
CLR (RO) :CLEAR ONE OF THE KERNEL PAR'S 
JSR PC, CMPREG :SEE IF OTHER PAR/PDR'S WERE EFFECTED 
MOV #-1,(RO)+ ;RESTORE ALL ONES, AND SETUP FOR NEXT PAR 
SOB R3,3$ ;LOOP TO 3$ UNTIL ALL KERNEL PAR'S CHECKED 
MOV #4$,$LPERR :SET LOOP ON ERROR POINTER TO 4$ 
MOV #10,R3 :LOAD LOOP COUNTER WITH AN 8 
MOV #UIPDRO,RO ;LOAD ADDRESS OF FIRST USER PDR IN RO 
4$: MOV #KERSTK.KSP :SETUP STACK POINTER 
CLR (RO) :CLEAR ONE OF THE USER PDR'S 
JSR PC, CMPREG :SEE IF OTHER PAR/PDR'S WERE EFFECTED 
MOV #-1,(RO)+ :RESTORE ALL ONES, AND SETUP FOR NEXT UPDR 
SOB R3,4$ ;LOOP TO 4$ UNTIL ALL USER PDR'S CHECKED 
MOV #5$,$LPERR =SET LOOP ON ERROR POINTER TO S$ 
MOV #10.R3 :LOAD LOOP COUNTER WITH AN 8 
MOV #UIPARO,RO :LOAD ADDRESS OF FIRST USER PAR IN RO 
5$: MOV #KERSTK.KSP :SETUP STACK POINTER 


CLR (RO) sCLEAR ONE OF THE USER PAR'S 
JSR PC, CMPREG :SEE IF OTHER PAR/PDR‘S WERE EFFECTED 


SEQ 0042 


E 4 
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023212 
023216 
023220 


023226 


023230 
025 


023556 


012720 
077310 
012737 


000004 


004737 
0000 


062700 
077410 


012700 
012704 
011001 
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177777 


023024 001110 


035202 


172300 
000010 


077416 


000002 


172340 
000010 


177777 


000002 


177600 
000010 


077416 


000002 


177640 
000010 


3 
PAR=PDR DUAL ADDRESSING TEST 


MOV #-1,(RO)+ 
SOB R3,5$ 
MOV #1$,$LPERR 


RESTORE ALL ONES, AND SETUP FOR NEXT UPAR 
;LOOP TO 5$ UNTIL ALL USER PAR'S CHECKED 
:SET LOOP ON ERROR POINTER TO 1$ 


FREAK RARER 


SRTEST 22 TEST THAT PAR=PDR'S NOT AFFECTED BY RESET 
** 
i THIS TEST CHECKS TO SEE THAT THE KERNEL OR USER PAR/PDR'S ARE 
ie NOT AFFECTED BY THE EXECUTION OF A ‘RESET'’ INSTRUCTION. THE 
is "‘SETREG'’ SUBROUTINE IS USED TO SET ALL WRITEASLE BITS TO A ‘1’ IN 
i THE PAR/PDR'S. THEN THEY ARE READ TO SEE THAT THEY REMAINED 
;* UNCHANGED 
** 
SISSIES SOOO IOI IIISITIOICI CIO IOISITIITI CIOS IIIT II IIE 
TST22: SCOPE 
1$: JSR PC, SETREG ;SET ALL BITS IN ALL PAR'S AND PDR'S 
RESET ; ISSUE AN ‘INIT’ BY EXECUTING A RESET 
MOV #KIPDRO,RO ;LOAD ADDRESS OF FIRST KERNEL PDR IN RO 
MOV #10,R4 :LOAD LOOP COUNTER WITH AN 8 


2$: MOV (RO) ,R1 sREAD A KERNEL PDR INTO R1 
CMP #77416,R1 ¢ARE ALL THE BITS STILL SET? 
BEQ 3$ CH IF YES 
ERROR 55 ;KERNEL PDR AFFECTED BY A RESET 
:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
$'' = 000773 
3$: ADD #2,R0 FORM ADDRESS OF NEXT KERNEL PDR 


SOB R4,2$ sLOOP TO 2$ UNTIL ALL KERNEL PDR'S CHECKED 
MOV #K IPARO,RO 


;LOAD ADDRESS OF FIRST KERNEL PAR IN RO 
MOV #10,R4 AN 8 


:LOAD LOOP COUNTER WITH AN 


4$: MOV (RO) ,R1 ;READ A KERNEL PAR INTO R1 
CMP #177777,R1 ;ARE ALL THE BITS STILL SET? 
BEQ 5$ ;BRANCH IF YES 
ERROR 55 sKERNEL PAR AFFECTED BY A RESET 
:FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
4$"' = 000773 
5$: ADD #2,R0 > FORM ADDRESS OF NEXT KERNEL PAR 


SOB R4 ,4$ sLOOP TO 4$ UNTIL ALL KERNEL PAR'S CHECKED 
MOV AUIPDRO,RO sLOAD ADDRESS OF FIRST a PDR IN RO 
MOV #10,R4 :LOAD LOOP COUNTER WITH AN 8 


6$: MOV (RO) ,R1 :READ A USER PDR INTO R ge 
CMP #77416,R1 7ARE ALL THE BITS STILL SET? 
BEQ 7$ CH IF YES 
ERROR 55 “USER PDR AFFECTED BY A RESET 
:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
6$°* = 000773 
7$: ADD #2,R0 FORM ADDRESS OF NEXT USER PDR 
SOB R4 ,6$ sLCOP TO 6$ UNTIL ALL USER PDR'S CHECKED 


MOV AUIPARO,RO ;LOAD ADDRESS OF FIRST un PAR IN RO 
MOV #10,R4 ;LOAD LOOP COUNTER WITH AN 8 
8$: MOV (RO) ,R1 :READ A USER PAR INTO RT 


SEQ 0043 


F 4 
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CJKDAB.P11 11=JUN=79 13:10 T22 TEST THAT PAR=PDR*S NOT AFFECTED BY RESET SEQ 0044 
2065 023360 022701 177777 CMP #177777 ,R1 sARE ALL THE BITS STILL SET? 
2066 023364 001401 BEQ 9$ ;BRANCH IF YES 
2067 023366 104055 ERROR 55 sUSER PAR AFFECTED BY A RESFT 
2068 sFOR TIGHTER SCOPE LOOP 
2069 ; REPLACE ERROR CALL WITH 
2070 ; :'BR 8$'' = 000773 
2071 025370 062700 000002 9$: ADD #2,RO ; FORM ADDRESS OF NEXT USER PAR 
noe 023374 077410 SOB R4,8$ ;LOOP TO 8$ UNTIL ALL USER PAR'S CHECKED 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2085 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2095 
2094 
2095 
2 F Ealieheliehaintahalahaialeiaiabelabelaiehshaheistaheicieinbeiabeielahaielsieiaipialeiainislabeislelsintaiaieialeieieiaiahababde e- 
2097 :*TEST 23 RELOCATION & ADDER TEST (NO CARRIES) 
2099 te THE FOLLOWING TEST SETS UP THE KERNEL PAR'S AND PDR'S 
2100 = FOR THE REST OF THE PROGRAM. IT THEN USES DIFFERENT 
2101 ;* VIRTUAL ADDRESSES AND DIFFERENT VALUES FOR KERNEL PAR 4 
2102 7% TO PUT DIFFERENT PATTERNS AT THE INPUTS OF THE 
2105 ;* MEMORY MANAGEMENT ADDER. THE VALUES ARE SUCH 
Aye. 3@ THAT NO CARRIES ARE GENERATED OUT OF THE ADDER. 
2106 ; THE METHOD USED TO SEE THAT THE RIGHT PHYSICAL BUS ADDRESS 
2107 :* IS FORMED BY THE ADDER IS TO WRITE A PATTERN TO VIRTUAL 
2108 ;* LOCATION WITH MEMORY MGMT., AND 
2109 ;* THEN READ THAT LOCATION USING THE PHYSICAL ADDRESS THAT SHOULD 
2110 :* HAVE BEEN FORMED TO SEE IF THE TEST PATTERN GOT THEIR 
2111 ;* 22-BIT AND 18-BIT ADDRESSING ARE USED. 
2112 SLR REE ERE REE REE RE REE REE ERE 
siz 023576 000004 TST23: SCOPE 
2115 023400 012700 172340 1$ MOV #KIPARO,RO ; LOAD yo OF FIRST KERNEL PAR IN RO 
2116 023404 005001 CLR R1 : CLEAR 
2117 023406 012702 000007 MOV #7 ,R2 _ LOOP COUNTER WITH A 7 
2118 023412 01012 2$: MOV R1, (RO) + MAP KERNEL PAR‘S TO PAGES 0-6 (4k EACH) 
2119 023414 062701 000200 ADD #200,R1 
€120 023420 077204 SOB R2,2$ LOOP UNTIL KIPARQ = KIPAR6 ARE LOADED 
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023524 
023526 
023530 
023534 
023540 


023542 


012710 
00 


077202 
012737 
0 


020203 


001405 
010137 
004737 
104017 


7 
104017 


6 
000021 
001176 


001306 
055466 


023542 
6 


001176 


001306 
035466 


001110 4$: 


177572 


5$: 
001110 6$: 


177572 


3$: 
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11=JUN=79 13:21 45 
RELOCATION & ADDER TEST (NO CARRIES) 
MOV #7600, (RO) :MAP KIPAR7 TO THE I/O PAGE 
MOV #kKIPDRO,RO :LOAD ADDRESS OF FIRST KERNEL PDR IN RO 
MOV #77606,R1 “LOAD PDR DATA INTO R17 
MOV #10,R2 :LOAD LOOP COUNTER WITH AN 8 
MOV R1,(RO)+ :MAP ALL 8 PAGES 128 BLOCKS, UPWARD 
SOB 2,3$ EXPANDABLE, READ/WRITE 
MOV #4$,$LPE2R :SET LOOP ON SRROR POINTER TO 4$ 
MOV #67776,RO :LOAD PHYSICAL ADDR. PBA INTO RO 
MOV #107776.R1 :LOAD VIRTUAL ADDR. VBA INTO R1 
MOV #125250,R2 -LOAD TEST PATTERN INTO R2 
MOV #600,R4 :LOAD R4 WITH PAR VALUE 
MOV R4,KIPARG LOAD KERNEL PAR 4 BITS <15:0M> 
MOV (RO), $TMPO :SAVE CONTENTS AT TEST LOCATION 
BIS #21,SRO -TURN ON MEM. MGNT. 22-BIT ADDRESSING 
MOV R2,(R1) *LOAD 125250 USING ADDER (PAR4 + VIRT ADDR.) 
RESET TURN OFF MEMORY MGMT. 
MOV (RO) ,R3 =READ 125250 BACK WITHOUT USING MEM. MGMT. 
MOV $TMPO, (RO) sRESTORE ORIGINAL CONTENTS TO TEST LOC. 
CMP R2,R3 :WAS SAME PATTERN READ BACK THAT WAS 
:WRITTEN USING MEMORY MANAGEMENT? 
BEQ 5$ : CH IF YES 
MOV R1,VIRT1 ;SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
JSR PC. FORMPA :GO FORM PHYSICAL ADDRESS FOR TYPING 
ERROR 17 :TEST LOCATION DID NOT HAVE PATTERN 
: THAT SHOULD HAVE BEEN WRITTEN TO IT. 
: APPARENTLY PHYSICAL ADDR. WAS 
:FORMED WRONG BY ADDERS USING 
;THE VIRTUAL ADDR. AND KIPAR4 
-FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
:"BR 4$'' = 000742 
MOV #6$ SLPERR :SET LOOP ON ERROR POINTER TO 6$ 
MOV #67776,RO :LCAD PHYSICAL ADDR. PBA INTO RO 
MOV #102576,R1 :LOAD VIRTUAL ADDR. VBA INTO R1 
MOV #125251.R2 =LOAD TEST PATTERN INTO R2 
MOV #652.R4 :LOAD R4 WITH PAR VALUE 
MOV R4,KIPARS :LOAD KERNEL PAR 4 BITS <15:00> 
MOV (RG), $TMPO :SAVE CONTENTS AT TEST LOCATION 
BIS #21,S5RO : TURN ON MEM. MGNT. 22-BIT ADDRESSING 
MOV R2,(R1) [LOAD 125251 USING ADDER ( 4R4 + VIRT ADDR.) 
RESET ; TURN OFF MEMORY MGMT. 
MOV (RO) .R3 READ 125251 BACK WITHOUT USING MEM. MGMT. 
MOV $TMPO, (RO) ; RESTORE ORIGINAL CONTENTS TO TEST LOC. 
CMP 2,R3 WAS SAME PATTERN READ BACK. THAT WAS 
“WRITTEN USING MEMORY MANAGEMENT? 
BEQ 7$ “BRANCH IF YES 
MOV R1,VIRT1 :SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
JSR PC . FORMPA :GO FORM PHYSICAL ADDRESS FOR TYPING 


TEST 
: THAT 


LOCATION DID NOT HAVE PATTERN 
SHOULD HAVE BEEN ghee TO IT. 


: APPARENTLY PHYSICAL ADDR 


sFORMED WRONG BY ADDERS USING 


: THE 
FOR 


VIRTUAL ADDR. AND KIPAR4 
TIGHTER SCOPE LOOP 


SEQ 0045 
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7$: 
023636 001110 8$: 
067776 


6 
000021 
001176 


001 306 
035466 


023732 
177776 


172350 
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000037 


001306 
035466 


024026 
177776 


177572 


001110 


177572 
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9$: 


10$: 


11$: 
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RELOCATION & ADDER TEST (NO CARRIES) SEQ 0046 
;REPLACE ERROR CALL WITH 
;' BR 6$"' = 000742 
MOV #8$,,SLPERR ;SET LOOP ON ERROR POINTER TO 8$ 
MOV #67776,RO ;LOAD PHYSICAL ADDR. PBA INTO RC 
MOV #105276,Ri ;LOAD VIRTUAL ADDR. VBA INTO 81 
MOV #125252,R2 LOAD TEST PATTERN INTO R2 
MOV #695-R4°:LOAD RG’ WITH PAR VALUE 
MOV R4 ,KIPARG ;LOAD KERNEL PAR 4 BITS <15:00> 
MOV (ROD, $TMPO : SAVE CONTENTS AT TEST LOCATION 
BIS #21,SRO ;TURN ON MEM. MGNT. 22-BIT ADDRESSING 
MOV R2,(R1) ;LOAD 125252 USING ADDER (PAR4 + VIRT ADDR.) 
RESET ; TURN OFF MEMORY MGMT. 
MOV (RO) ,R3 sREAD 125252 BACK WITHOUT USING MEM. MGMT. 
MOV $TMPO, (RO) ;RESTORE ORIGINAL CONTENTS TO TEST LOC. 
CMP 2,R3 ;WAS SAME PATTERN READ BACK THAT WAS 
;WRITTEN USING MEMORY MANAGEMENT? 
BEQ 9$ :BRANCH IF YES 
MOV R1,VIRT1 ;SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
JSR PC,FORMPA :GO FORM PHYSICAL ADDRESS FOR TYPING 
ERROR 17 ;TEST LOCATION DID NOT HAVE PATTERN 
;THAT SHOULD HAVE BEEN WRITTEN TO IT. 
:APPARENTLY PHYSICAL ADDR. WAS 
;FORMED WRONG BY ADDERS USING 
;THE VIRTUAL ADDR. AND KIPARS 
FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
‘BR 8$'' = 000742 | 
MOV #10$,$LPERR ;SET LOOP ON ERROR POINTER TO 10$ = 
MOV #PSW,RO ;LOAD PHYS. ADDR. OF PSW INTO RO 
MOV #100076,R1 ;LOAD VIRTUAL ADDR. FOR PSW INTO R1 
MOV #030340,R2 :LOAD DATA FOR PSW IN R2 
MOV #7777 ,R& :LOAD R4 WITH PAR VALUE 
MOV R4 ,.KIPAR4 :LOAD KERNEL PAR 4 BITS <11:00> 
CLR (RO) ;CLEAR THE PSW 
BIS #B1T0,SRO ON ‘MEMORY MANAGEMENT’’ (18 BIT ADDRESSING) 
MOV R2,(R1) ‘LOAD PSW USING ADDER (PAR + VIRT ADDR.) 
RESET ;TURN OFF MEM. MGMT (SRO=0) 
MOV (RO) .R3 :READ PSW BACK WITHOUT USING MEM. MGMT. 
CLR (RO) :CLEAR THE P 
BIC #37 .R3 :MASK T-BIT c cc {ITs OUT OF DATA READ 
CMP R2,R3 [WAS PSW WRITT 
BEQ 11$ :BRANCH IF YES. 
MOV R1,VIRT1 ;SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
JSR PC .FORMPA :GO FORM PHYSICAL ADDR. FOR TYPING 
ERROR 17 :PSW DID NOT HAVE DATA THAT IT SHOULD HAVE, 
: APPARENTLY PHYS. ADDR. OF PSW WAS 
;NOT FORMED BY ADDERS USING THE 
:VIRTUAL ADDR. AND KIPARG 
:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
;' BR 10$'* = 000742 
MOV #11$,$LPERR SET LOOP ON ERROR POINTER TO 118 
MOV #PSw,RO :LOAD PHYS. ADDR. OF PSw INTO RO 


H 4 
PAGE 


11=JUN=79 
RELOCATION & ADDER TEST 


I 4 
PAGE 47 
(NO CARRIES) 


13:21 


#117776,R1 ;LOAD VIRTUAL ADDR. FOR PSW INTO R1 
#030240 ,R2 ;LOAD DATA FOR PSW IN R2 
#177600,R4 sLOAD R4 WITH PAR VALUE 
R4,KIPARS sLOAD KERNEL PAR 4 BITS <15:00> 
#21,SR ; TURN ON ‘MEMORY MANAGEMENT''(22 BIT ADDRESSING) 
R2,(R1) sLOAD PSW USING ADDER (PAR4 + VIRT. ADDR.) 
; TURN OFF MEM. MGMT (SRO=0) 
(RO) ,R3 sREAD PSW a's WITHOUT USING MEM. MGMT. 
(RO) *CLEAR THE P 
#37 ,R3 MASK T-BIT i a aie OUT OF DATA READ 
R2,R WAS PSW WRITT 
2$ ;BRANCH IF YES. 
R1,VIRT1 >SAVE VIRTUAL ADDR. TO FORM PHYSICAL ADDR. 
PC ,FORMPA :GO FORM PHYSICAL ADDR. FOR TYPING 
:PSwW DID NOT HAVE DATA THAT IT SHOULD 
sHAVE, APPARENTLY PHYS. ADDR. OF PSW WAS 
sNOT FORMED BY ADDERS USING THE 
:VIRTUAL ADDR. AND KIPAR4 
sFOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
;'BR 11$'' = 000743 
#1$,$LPERR RESET LOOP ON ERROR POINTER TO 1$ 


SRA RK KKEKEEEEKKKKEKKKEEEEEEKEEKEEKKEEKREEKKEKKEKKKEKKKE 


RELOCATION & ADDER TEST (WITH CARRIES) 


THE FOLLOWING TEST USES THE SAME METHOD AS THE PREVIOUS 
TEST TO VERIFY MEMORY MANAGEMENTS ABILITY TO CONSTRUCT 
PHYSICAL BUS ADDRESSES USING A VIRTUAL BUS ADDRESS AND THE 


CONTENTS OF A PAGE ADDRESS REGISTER. 


HOWEVER, THE VALUES 
IES 


AND PATTERNS USED IN THIS TEST WILL oar a CARR 
" WRAPAROUND" 


AND CHECK 
USING VIRTUAL ADDR. 


‘ TO ADDRESS 000000 B 
111400 AND KIPAR4 = 177666. 


22-BIT ADDRESSING IS USED. 


MD-11=CJKDA=B KTF11=AA MMU DIAG MACY11 30A(1052) 
CJKDAB.P11 11=JUN-79 13:10 T23 

2233 024040 012701 117776 MOV 

2234 024044 012702 030240 MOV 

2235 024050 012704 177600 MOV 

2236 024054 010437 172350 MOV 

2237 024 052737 000021 177572 BIS 
238 024 010211 MOV 
2239 024070 5 RESET 
2240 024072 011003 MOV 
2241 024074 005010 CLR 

2242 024076 042703 000037 BIC 

2243 024102 020203 CMP 

2244 024104 00140 BEQ 

2245 024106 010137 001306 MOV 

2246 024112 004737 035466 JSR 
2247 024116 104017 ERROR 
2248 

2249 

2250 

2251 

2252 

2253 

te: 024120 012737 023400 001110 12$: MOV 

2 

2256 

2257 TEST 24 

2258 is 

2259 :* 

2260 :* 

2261 :* 

2262 :* 

22653 + 

2264 :* 

2265 :* 

2266 :* 

2267 ss 

ace 024126 000004 TST24: SCOPE 

on 024130 1$: 

2272 024130 012737 024130 001110 2$: MOV 
2273 024136 0127 066476 MOV 

2274 024142 012701 114376 MOV 
2275 024146 012702 125253 MOV 

2276 024152 012704 000521 MOV 

2277 024156 010437 172350 MOV 
2278 024162 011037 001176 MOV 

2279 0241 052737 000021 177572 BIS 
2280 024174 010211 MOV 
2281 024176 RESET 

2282 024200 011003 MOV 
2283 024202 013710 001176 MOV 

Soa 024206 020203 CMP 
2286 024210 001405 BEQ 

2287 024212 010137 001306 MOV 
2288 024216 004737 035466 JSR 


REE EKEEEKEEKKEKEKEKKEKKEKEEEEKEKEKKEEEREEEKEEEEEEEKEEEEEKKEEEKEKEKEKKKEE 


sKERNEL PAR'S AND PDR‘S HAVE BEEN 
:SETUP BY THE PREVIOUS 


TEST 
arr , SLPERR ay LOOP ON ERROR POINTER TO 3, 


#66476.RO :LOAD PHYSICAL ADDR. PBA INTO R 
#114376,R1 ;LOAD VIRTUAL ADDR. VBA INTO R1 
#125253.R2 LOAD TEST PATTERN INTO R2 
#521.R4 :LOAD RG WITH PAR VALUE 
RG .KIPAR4 OAD KERNEL PAR 4 BITS <15:00> 
(RO), $TMPO * SAVE CONTENTS AT TEST LOCATION 
#21,S5RO > TURN ON MGNT. 22-BIT ADDRESSING 
R2, (R1) = LOAD 135953" USING ADDER (PAR4 + VIRT ADDR.) 
: TURN OFF MEMORY MGMT. 
(RO) .R3 “READ 135268 BACK WITHOUT USING MEM. MGMT. 
$TMPO, (RO) ; RESTORE ORIGINAL CONTENTS TO TEST LOC. 
R2,R3 ‘WAS SAME PATTERN READ BACK THAT WAS 
“WRITTEN USING MEMORY MANAGEMENT? 
3$ sBRANCH IF YES 
R1,VIRT1 :SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
PC> FORMPA =GO FORM PHYSICAL ADDRESS FOR TYPING 


SEQ 0047 


MD-11=-CJKDA=B KTF11=AA MMU D 
11=JUN=79 1 


CJKDAB.P11 


2289 
90 


024222 


024224 


024316 


024320 


024412 


104017 


012737 
0 


012737 
012700 


0 

020203 
001405 
010137 
004737 
104017 


] 
13:10 


024224 
062276 


76 
000021 
001176 


001306 
035466 


024320 
76 


001176 


001306 
035466 


AG MACY11 


001110 


177572 


001110 


177572 


30A (1052) 
124 


3$: 
4$: 


5$: 
6$: 


11=JUN=79 
RELOCATION & ADDER TEST 


ERROR 


J 4 
PAGE 48 
(WITH CARRIES) 


17 s TEST LOCATION DID NOT HAVE PATTERN 
; THAT SHOULD HAVE BEEN WRITTEN TO IT. 
:APPARENTLY PHYSICAL ADDR. WAS 
$f D WRONG BY ADDERS USING 
;THE VIRTUAL ADDR. AND KIPAR4 
=FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
; BR 2$°" = 000742 


13:21 


#4$,$LPERR :SET LOOP ON ERROR POINTER TO 4$ 
#62276,RO “LOAD PHYSICAL ADDR. PBA INTO RO 
#107376,R1 ;LOAD VIRTUAL ADDR. VBA INTO R1 
#12525 AD TEST PATTERN INTO R2 


4,R2 ;LO 
#527,R4 ;LOAD RG WITH PAR VALUE 


R4 ,KIPARS ;LOAD KERNEL PAR 4 BITS <15:00> 

(RO) ,STMPO :SAVE CONTENTS AT TEST LOCATION 

#21, SRO . ON MEM. MGNT. 22-BIT ADDRESSING 

R2,(R1) :LOAD 125254 USING ADDER (PAR4 + VIRT ADDR.) 
; TURN Ad MEMORY MGMT. 

(RO) ,R3 :READ 125254 BACK WITHOUT USING MEM. MGMT. 

$TMPO, (RO) ; RESTORE ORIGINAL CONTENTS TO TEST LOC. 

R2,R3 WAS SAME PATTERN READ BACK THAT WAS 
“WRITTEN USING MEMORY MANAGEMENT? 

S$ ;BRANCH IF YES 

R1,VIRT1 ;SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 

PC ,FORMPA :GO FORM PHYSICAL ADDRESS FOR TYPING 


17 ; TEST LOCATION DID NOT HAVE PATTERN 
; THAT SHOULD HAVE BEEN WRITTEN TO IT. 
;APPARENTLY PHYSICAL ADDR. WAS 
sFORMED WRONG BY ADDERS USING 
* THE VIRTUAL ADDR. AND KIPAR4 
;FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
;‘BR 4$"* = 000742 


#6$ ,SLPERR ;SET LOOP ON ERROR POINTER TO 6$ 
#62076,R0 ;LOAD PHYSICAL ADDR. PBA INTO RO 
#104576,R1 ; LOAD VIRTUAL ADDR. VBA INTO R1 


eRe LOAD TEST PATTERN INTO R2 
#553,R4 ;LOAD R4 by bi PAR VALUE 
R4 ,KIPAR4 ;LOAD KERNEL PAR 4 BITS <15:00> 
(RO) ,$TMPO :SAVE CONTENTS AT TEST LOCATION 
#21,S5RO ;TURN ON MEM. MGNT. 22-BIT ADDRESSING 


R2, (R1) LOAD 125255 USING ADDER (PAR4 + VIRT ADDR.) 
; TURN OFF MEMORY f 

(RO) ,R3 READ 125255 BACK WITHOUT USING MEM. MGMT. 

$TMPO, (RO) ; RESTORE ORIGINAL CONTENTS TO TEST LOC. 


R2,R3 WAS SAME PATTERN READ BACK THAT WAS 
:WRITTEN USING MEMORY MANAGEMENT? 


7$ ; BRANCH 
R1,VIRT1 :SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
PC ,FORMPA :GO FORM PHYSICAL ADDRESS FOR TYPING 


17 press LOCATION DID NOT HAVE PATTERN 
T SHOULD HAVE BEEN WRITTEN TO IT. 

‘APPARENTLY PHYSICAL ADDR. WAS 

;FORMED WRONG BY ADDERS USING 


SEQ 0048 


MD-11=CJKDA=8 KTF11=AA MMU D 
11=JUN=79 13:1 


CJKDAB.P11 


024414 


024472 
024474 


024510 
024510 


020205 
001405 


012737 


] 
0 


7$: 
024414 001110 8$: 
000000 


000021 


001176 


001306 
035466 


024130 001110 


177572 


essen eeeeeeeeeneearvaenes. 


AG MACY11 30A(1052) 
T24 


* 


Ti=JUN=79 13:21 
RELOCATION & ADDER TEST 


K 4 
PAGE 49 
(WITH CARRIES) 


;THE VIRTUAL ADDR. AND KIPAR4 
LOOP 


sFOR TIGHTER SCOPE 


; REPLACE ERROR CALL WITH 
;'BR 6$°' = 000742 


ION 
22-BIT ADDRESSING 
(PAR4 + VIRT ADDR.) 


125256 BACK WITHOUT USING MEM. MGMT. 


PATTERN READ BACK THAT WAS 


BEEN WRITTEN TO IT. 


MOV #3$,$LPERR :SET LOOP ON ERROR POINTER TO 8$ 
MOV #00000,RO “LOAD PHYSICAL ADDR. PBA INTO RO 
MOV #111490,R1 “LOAD VIRTUAL ADDR. 
MOV #125256.R2 “LOAD TEST PATTERN INTO R2 
MOV #177664 RG “LOAD R4 WITH PAR VALUE 
MOV R4,.KIPARG :LOAD KERNEL PAR 4 BITS <15:00> 
MOV (RO) , $TMPO :SAVE CONTENTS wT TEST LOCAT 
BIS #71,5R0 = TURN ON MEM 
MOV R2, (R1) “LOAD 125256. USING ADDER 
RESET : TURN OFF MEMORY MGMT. 
MOV (RO) R3 *READ 
MOV ¢TMPO, (RO) sRESTORE ORIGINAL CONTENTS TO TEST LOC. 
CMP R2,R3 “WAS SAME 
[WRITTEN USING MEMORY MANAGEMENT? 
BEQ 9$ “BRANCH IF YES 
MOV R1,VIRT1 =SAVE VIRTUAL ADDR. TO FORM PHYS. ADDR 
JSR PC -FORMPA :GO FORM PHYSICAL ADDRESS FOR TYPING 
ERROR 17 :TEST LOCATION DID NOT HAVE PATTERN 
:THAT SHOULD HAVE 
:APPARENTLY PHYSICAL ADDR. WAS 
:FORMED WRONG BY ADDERS USING 
;THE VIRTUAL ADDR. AND KIPAR4 
“FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
"BR 8$'' = 000742 
MOV #1$,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
FREAK KKEAKKKKEKKKEKEREKKEKEKEKEEEKKERKEEREREKEEEKEEKEEREREKKKKKEKEKKEE 
TEST 25 READ AND WRITE WHILE IN RELOCATE MODE 


hy FOLLOWING TEST TURNS ON MEMORY MANAGEMENT AND THEN 
EADS AND_WRITES LOCATIONS BETWEEN PHYSICAL rage Sas 


660000-067600. ONE yoy IN EVERY BLOCK (32. 


IS WRITTEN USING PAR4 AND R 


MC THE 
THE PAR/PDR'S TO EXECUTE. 


AD USING PARS. 
DONE IN BOTH USER AND KERNEL MODES. 
ARE SETUP AT THE BEGINNING OF THE TEST AND ONCE MEMORY 


THIS ts. 


THE USER PAR/PDR'S 


ME 
TE 


MANAGEMENT IS ON RELOCA 
PROGRAM ITSELF IS USING ITS VIRTUAL ADDRESSES AND 


WHILE TESTING IN KERNEL MODE, USER PAGES 4 & 5 ARE MAPPED 
NONRESIDENT WITH DIFFERENT PAR VALUES THAN THE KERNEL 


PAR*S TO BE SURE 
USER 


DE). IF A MEM, MGMT. 
TO 9$ WHERE THE TRAP IS REPORTED. 


TRAP 


THAT THE KERNEL PAR'S AND 
USED WHEN IN re MODE (AND VICE VERSA WHILE TESTING IN 
MO OCCURS, THE PROGRAM GOES 


PDR'S AR 


ARE BEING 


SEQ 0049 


MD-11=CJKDA=B KTF11=AA_ MMU 


CJKDAB.P11 


024516 
024520 


024716 


024720 


024756 


11=JUN- 


79 13: 


I 
0 


177776 


177640 
000007 
000200 
177600 


077406 
000010 


024672 


120000 


001310 
001306 
035466 


140000 


177650 
177652 


AG MACY11 30A(1052) 
T25 RE 


001110 
000250 
177572 


001176 


177776 


L 
1i-JUN=79 13:21 PAGE 50 
AD AND WRITE WHILE IN RELOCATE MODE 


:* BY SETTING THE LOCATION $MADR1 IN THE E=TABLE TO A CONSTANT, 
:* AS DESCRIBED IN THE DOCUMENTATION, THIS TEST WILL ‘ONTINUE 
:* ACCESSING LOCATIONS THROUGHOUT MEMORY BY INCREASING THE VALUE 
:* OF PAR4 AND PARS. 
5 REAR RKEKEKEKERKEKEKERKEKEREEKEKREKKKEEREREKEKEEKEREKEREREREEKREEKREKEEKEEEE 
TST25: SCOPE 
1$: CLR PSW :START IN KERNEL MODE 
MOV #577 RG “LOAD R4 WITH VALUE FOR PAR 
MOV #600,R5 :LOAD R5 WITH VALUE FOR PARS 
MOV R4,KIPARG “LOAD KERNEL PAR 
MOV RS KIPARS “LOAD KERNEL PARS 
MoV IPARO, :LOAD ADDRESS OF FIRST USER PAR IN RO 
MOV #7 ,R2 : LOAD LOOP COUNTER WITH A 
2$ MOV R1,(RO)+ USER PAR'S TO PAGES 406 (4K EACH) 
ADD #200,R1 
SOB R2,2$ :LOOP UNTIL UIPARO-UIPARG ARE LOADED 
MOV #177600, (RO) “MAP USER PAR7 TO THE I/O PAGE 
MOV #UIPDRO.RO :LOAD ADDRESS OF FIRST USER PDR IN RO 
MOV #776406,R1 =LOAD PDR DATA INTO R RI 
MOV #10,R2 :LOAD LOOP COUNTER AN 8 
3$: MOV R1, (RO) + ;MAP ALL 8 PAGES 128. BLOCKS. UPWARD 
SOB R2,3$ XPANDABLE, READ/WRITE 
MOV #5$,$LPERR “SET LooP ON ERROR POINTER TO 5$ 
MOV #9$ ,.MMVEC :SET M. M. TRAP VECTOR TO 9$ 
MOV #21,SRO : TURN ON MEMORY MANAGEMENT (22=BIT ADDRESSING) 
10$:  CLRB —_—UIPDR4 ;MAP USER SPACE NON-RESIDENT WHILE 
CLRB —sdUIIPDRS TESTING KERNEL SPACE 
MOV R5,UIPARS “MAP USER PAR'S OPPOSITE OF KIPAR'S 
MOV R4,UIPARS 
4$: MOV PSW,$TMPO :SAVE PSW IN CASE OF ERROR 
MOV #100100,RO :PUT VIRTUAL ADDR. THAT USER PAR4 IN RC 
MOV #120000,R1 =PUT VIRTUAL ADDR. THAT USES PARS IN R1 
5$: MOV RO, (RO) :WRITE TO TEST LOC. USING PAR4 
MOV (R1) .R2 :READ THE SAME LOC., BUT USING PARS 
CMP R2 :DID WE READ WHAT WE WROTE? 
BEQ 6$ ( “BRANCH IF YES 
MOV R1,VIRT2 :SAVE VIRTUAL ADDR. THAT SELECTED PARS 
MOV RO,VIRT1 >SAVE VIRTUAL ADDR. THAT SELECTED PAR4 
JSR PC FORMPA :GO FORM PHYSICAL ADDRESS BEING USED 
ERROR 20 sREADING LOC. USING PAR VIRT. 
:ADDR. DID NOT FIND DATA WRITTEN WHEN USING 
:PAR4 AND VIRT. ADDRESS. 
:FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
"BR 5$°° = 000765 
MOV VIRT1,RO “RESTORE VBA IN RO 
6$: ae Ay Se =CHANGE VIRTUAL ADDRS. TO POINT TO NEXT BLOCK 
CMP R1,#127700 : WERE BLOCKS FROM 60000-676000 ALL TRIED? 
BNE “BRANCH IF NO 
BIT #140000, PS ;HAVE WE DONE TEST IN USER MODE YET? 
BNE 7$ ANCH IF YES 
MOV R4,UIPARS =LOAD USER PAR 
MOV R5.UIPARS =LOAD USER PARS 


SEQ 0050 


M4 
13:21 PAGE 5 


MD-11=CJKDA-B KTF11=AA MMU DIAG MACY11 30A(1052) 11=JUN-79 | 
CJKDAB.P11 —s- 11=JUN=79 13:10 725 READ AND WRITE WHILE IN RELOCATE MODE 
2457 024762 112737 000 177610 MOVB  #6,UIPDR4 :MAP USER SPACE R/W TO TEST IT 
2458 024770 112737 000006 177612 MOVB  #6.UIPDRS 
2459 024776 105037 172310 CLRB  —KIPDR4 ;MAP KERNEL SPACE NON-RESIDENT WHILE 
2460 025002 105037 172312 CLRB = KIPDRS TESTING USER SPACE 
2461 025006 010537 172350 MOV RS .KIPARG “MAP KERNEL PAR'S OPPOSITE UIPAR'S 
2462 025012 010437 172352 MOV R4~KIPARS 
2463 025016 012737 140000 177776 MOV #140000, PSW :GO TO USER MODE 
2464 025024 000713 BR 4$ =GO BACK AND READ/WRITE IN USER MODE 
2465 025026 005037 177776 7$: CLR PSW :GO BACK TO KERNEL MODE BEFORE LEAVING 
2467 025032 020537 001260 CMP R5, a#SMADR1 :HAVE WE CHECKED ALL MEMORY? 
2468 025036 00202 BGE RE =BRANCH IF YES 
2469 025040 eo? 000209 ADD #200,R4 ;LOAD WITH NEXT VALUE FOR PARG 
2470 025044 062705 000200 ADD #200,R5 “LOAD WITH NEXT VALUE FOR PARS 
2471 025050 010437 172350 MOV R4.KIPARG “LOAD KERNAL PAR4 
2472 025054 010537 172352 MOV R5KIPARS : LOAD KERNAL PARS 
2473 025 112737 006 172310 MOVB  #6.KIPDR4 MAP KERNAL SPACE R/W WHILE TESTING 
2474 025 112737 000006 172312 MOVB #6,KIPDRS 
2475 025074 000137 024634 JMP 10$ : CONTINUE TEST 
2477 025100 012737 077406 172310 8%: MOV #77406,KIPDR4 ;:REMAP KERNEL PAGES READ/WRITE 
2478 025106 012737 077406 172312 MOV #77406. KIPDR5 
2479 025114 012705 000600 MOV 00,R5 
2480 025120 010537 172350 MOV R5,.KIPAR4 :MAP KERNEL AND USER PAR'S 4 & 5 
2481 025124 010537 172352 MOV R5KIPARS : BACK TO 12=16K 
2482 025130 010537 177650 MOV R5S,UIPAR4 
2483 025134 010537 177652 MOV R5,UIPARS 
2484 025140 012737 002150 000250 MOV A#MGMERR , MMVEC ;RESTORE ADDR. OF NORMAL M.M. TRAP ROUTINE 
2485 025146 012737 024520 001110 MOV #1$,$LPERR :RESET LOOP ON ERROR POINTER TO 1$ 
2486 025154 27 BR TST 26 =:GO TO NEXT TEST 
2488 025156 012637 001266 9$: MOV (KSP) +, TRAPPC :SAVE PC & PS OF TRAP 
2489 025162 012637 001270 MOV (KSP) +, TRAPPS 
2490 :PROGRAM WILL TRAP TO HERE IF TRY 
2491 >TO USE USER PDR'S WHEN IN KERNEL MODE 
2492 :OR KERNEL PDR'S WHEN IN USER MODE 
2493 025166 010037 001306 MOV RO,VIRT1 :SAVE VIRTUAL ADDRESS FOR ERROR REPORT 
2494 025172 737 035466 JSR PC FORMPA :GO FORM THE PHYSICAL ADDRESS BEING USED 
2495 025176 013737 177572 001272 MOV SRO, WASSRO :SAVE SRO & SR2 FOR ERROR REPORT 
2496 025204 013737 177576 001274 MOV SR2,WASSR2 
2497 025212 042737 160000 177572 BIC #160000, SRO CLEAR ERROR BITS IN SRO 
2498 025220 104052 ERROR M.M. TRAP WHILE IN RELOCATE MODE - 
2499 ZREF ERENCED WRONG SET OF PDR'S 
2500 “FOR TIGHTER SCOPE LOOP 
2501 ;REPLACE ERROR CALL WITH 
2502 7A "NOP = 00024 
2503 025222 013746 001270 MOV TRAPPS,-(KSP) :PUT PC & PS OF TRAP ON STACK 
2504 025226 013746 001266 MOV TRAPPC , = (KSP) 
2505 025232 000002 RTI :RETURN TO TEST 
2506 
2507 
2508 CREEK EEKEKEEEKEKKEKEEEEEEKEEEEEEEKEEEEEREKEEKEREEKEKEKEE 
2509 “STEST 26 W-BIT LOGIC TEST, KERNEL PDR'S 
** 
2511 Sa THIS TEST WRITES TO EIGHT (8) DIFFERENT VIRTUAL ADDRESSES 
2512 :* (VBA'S = 17776, 37776,57776,77776,117776,137776,157776, & 177776 


SEQ 0051 


| 


N 4 
AG MACY11 30A(1052) dee aA 13:21 PAGE 52 


MD-11=CJKDA=B KTF11=AA MMU DO] 
10 T26 W-BIT LOGIC TEST, KERNEL PDR'S SEQ 0052 


CJKDAB.P11 11=JUN-79 13: 


2513 :* & PBA'S CONSTRUCTED = 17776.37776, 57776, 77776,77776, 

2514 * 77776,77776, & 777776 RESPECTIVELY 

2515 zt WHICH SHOULD CAUSE THE eB IT TO. Sér IN EACH OF THE 

2516 z* EIGHT (8) KERNEL PAGE DESCRIPTOR REGISTERS. THE PDR'S 

2517 zs ARE CHECKED TO SEE THAT IT'S W-BIT DOES SET WHEN THE 

2518 zs PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE W-BIT 

2519 zt DOES NOT SET IN ANY OF THE OTHER PDR'S. KERNEL PDR'S 3,4,5.6 
2520 :* ARE MAPPED TO 12=16K FOR THIS TEST. ALSO THE W-BIT 

2521 zs SHOULD BE CLEARED WHEN THE PDR IS WRITTEN TO. THE 

2522 :* W-BIT PORTION OF THE PDR'S IS BEING CHECKED. 

2523 SRK ER EERE EEKEREKEEEKEEREK 

2524 025234 000004 TST26: SCOPE 

2525 025236 1$: 

2526 025236 004737 035114 JSR PC, TOFF : TURN T-BIT TRAPPING OFF FOR THIS TEST 
2527 025242 012702 000004 MOV #4 ,R2 =SET LOOP COUNTER TO 4 

2528 025246 012700 172346 MOV #KIPAR3,RO = LOAD ADDRESS OF “ARS INTO RO 

2529 025252 012701 000600 MOV #600,R1 “LOAD ''12=16k"' AR VALUE INTO R1 

2530 025256 010120 2$: MOV R1, (RO) + :MAP PARS 3-6 10 12-16K 

2531 025260 077202 SOB R2,2$ sLOOP TIL ALL } OOF THEM LOADED 

2532 025262 012705 172300 MOV #KIPDRO.RS :LOAD ADDRESS OF FIRST PDR TO BE TESTED IN RS 
2533 025266 012704 000010 MOV #10,R4 :SET LOOP COUNTER TO 8 

2534 025272 012703 017776 MOV #17776.R3 : INITIALIZE VIRTUAL ADDRESS TO BE IN R3 
2535 025276 012737 025304 001110 MOV #3$,$LPERR :SET LOOP ON ERROR POINTER TO 3$ 

2536 025304 012700 172300 3$: MOV #KIPDRO,RO :LOAD ADDR. OF FIRST PDR TO BE SETUP IN RO 
2537 025310 012702 000010 MOV #10.R2 ;SET LOOP COUNTER TO 

2538 025314 012701 077406 MOV #77406,R1 :PUT ‘W-BIT OFF DATA’ INTO R1 

2539 025320 010120 4$: MOV R1, (RO)+ :CI*°EAR ALL W-BITS BY WRITING TO ALL PDRS 
2540 025322 077202 SOB R2,4$ LOOP UNTIL ALL OF THEM SETUP 

2541 025324 011313 . MOV (R3) , (R3) :DO ‘DATO’’ TO VIRTUAL ADDR. “SETTING A W-BIT 
2542 025326 031527 000100 : I (R5) ,AWBIT :DID THAT CAUSE W-BIT TO BE SET? 

2543 025332 001002 BNE 5$ “BRANCH IF YES 

2544 025334 104021 ERROR 21 ‘W-BIT DID NOT GET SET IN PDR 

2545 -FOR TIGHTER SCOPE LOOP 

2546 REPLACE ERROR CALL WITH 

2547 :'BR 3$'' = 000763 

2548 025336 000422 BR 8$ “SKIP CHECKING OTHER PDR'S-ERROR WILL SET W-BITS 
2549 025340 012702 000010 S$: MOV #10,R2 ;SET LOOP COUNTER TO 8 

2550 025344 012700 172300 i MOV #KIPDRO,RO LOAD ADDR. OF FIRST PDR TO BE CHECKED IN RO 
2551 025350 031027 000100 6$: BIT (RO) ,AWBIT :DID W-BIT IN OTHER PDRS REMAIN CLEAR? 

2552 025354 001403 BEQ 7$ :BRANCH IF YES 

2553 025356 020500 CMP R5,RO : IF W-BIT SET, THEN WAS IT PDR UNDER TEST? 
2554 025360 001401 BEQ 7$ “BRANCH IF YES 

2555 025362 104022 ERROR 22 ‘W-BIT GOT SET IN MORE THAN ONE PDR 

2556 -FOR TIGHTER SCOPE LOOP 

2557 ;REPLACE ERROR CALL WITH 

2558 ; :"BR 3$'° = 000750 

2559 025364 062700 000002 7$: ADD #2,R0 =POINT RO TO NEXT PDR TO BE CHECKED 

2560 025370 077211 SOB R2,6$ :LOOP UNTIL ALL 8 CHECKED FOR CLEAR W-8IT 
2561 025372 010115 MOV R71, (R5) :WRITE TO THE PDR TESTED TO CLEAR W-BIT 
2562 025374 031527 000100 BIT (R5) ,AWBIT :DID WRITING PDR CLEAR THE W-BIT? 

2563 025400 001401 BEQ 8$ =BRANCH IF YES 

2564 025402 104023 ERROR 23 :WeBIT DID NOT CLEAR BY WRITING THE PDR 
2565 -FOR TIGHTER SCOPE LOOP 

2566 ;REPLACE ERROR CALL WITH 

2568 025404 062705 000002 8$: ADD #2,R5 “POINT R5 TO THE NEXT PDR TO BE TESTED 


11=JUN=79 


13:21 
#20000,R3 
R4,3$ 


#1$,$LPERR 
PC, TON 
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PAGE 53 
W-BIT LOGIC TEST, KERNEL PDR'S 


SEQ 0053 


;CHANGE VIRT. ADDR TO REF. NEXT PDR 

;LOOP BACK TO 3$ UNTIL ALL 8 PDR'S TESTED 
;RESET LOOP ON ERROR POINTER TO 1$ 

; TURN T-BIT BACK ON FOR NEXT TEST 


SERRA ARR ARK EREREKKEKEEEKREKRKEEKEKEKERKKEKKEEREREKKEEEKEKRERKS K 


W-BIT LOGIC TEST, USER PDR'S 
THiS TEST WRITES TO EIGHT (8) DIFFERENT VIRTUAL ADDRESSES 


(VBA'S = 17776, 37776,57776,77776,117776,137776 
ONSTRUCTED = 17776, 37776,57776.77776, 77776 


O68 & 177776 


& PBA 
77776,77776, & 777776 RESPECTIVELY). 


WHICH SHOULD CAUSE THE ‘'W-BIT’’ 
EIGHT (8) USER PAGE DESCRIPTOR REGISTERS. 


TO SET IN EACH OF THE 
THE PDR'S 


ARE CHECKED TO SEE THAT IT'S W-BIT DOES SET WHEN THE 
PAGE IT IS MAPPED TO IS WRITTEN TO AND THAT THE W-BIT 


DOES NOT SET IN ANY OF THE OTHER PDR'S. 
ARE MAPPED TO 12-16K FOR THIS TEST. 
SHOULD BE CLEARED WHEN THE PDR IS WRITTEN TO. 


USER PDR'S 3,4,5,6 
ALSO THE a 


W-BIT PORTION OF THE PDR'S IS BEING CHECKED. 


MD-11=CJKDA=B KTF11-AA " DIAG MACY11 3? Nest 
CJKDAB.P11 |. 11=JUN=-79 13:10 726 
2569 025410 5 aE 020000 ADD 
2570 025414 077445 SOB 
2571 025416 019733 oteten 001110 MOV 
2572 025424 004737 035150 JSR 
2573 
2574 
2575 STEST 27 
2576 8 
2577 ;* 
2578 ;* 
2579 s* 
2580 ;* 
2581 st 
2582 ;* 
2583 :* 
2584 ;* 
2585 ;* 
2586 ;* 
2587 :* 
2588 :* 
2589 : 
2590 025430 000004 TST27: SCOPE 
2591 025432 012737 140000 177776 1$: MOV 
2592 025440 004737 035114 JSR 
2593 025444 012702 0600004 MOV 
2594 025450 012700 177646 MOV 
2595 025454 012701 000600 MOV 
2596 025460 010120 2$: MOV 
2597 025462 077202 SOB 
2598 025464 012705 177600 MOV 
2599 925470 012704 000010 MOV 
2600 025474 012703 017776 MOV 
2601 25500 012737 025506 001110 MOV 
2602 025506 012700 177600 3$: MOV 
2603 025512 012702 000010 MOV 
2604 025516 012701 077406 MOV 
2605 025522 010120 4$: MOV 
2606 025524 077202 SOB 
2607 025526 011313 MOV 
2608 025530 031527 000100 BIT 
2609 025534 001002 BNE 
2610 025536 104021 ERROR 
2611 
2612 
2613 5 
2614 025540 000422 BR 
2615 025542 012702 000010 5$: MOV 
2616 025546 012700 177600 MOV 
2617 025552 031027 000100 6$: BIT 
2618 025556 001403 BEQ 
2619 025560 020500 CMP 
2620 025562 001401 BEQ 
2621 255 104022 ERROR 
2622 
2623 
2624 


#140000 ,PSW 


e 


R2,2 
#UIPDRO,RS 
#10,R4 
#17776.R3 
#3$,$LPERR 
#UIPDRO,RO 
#10,R2 
#77406,R1 
R1, (RQ) + 
R2,4$ 
(R3), (R3) 
(RS) MBIT 


5 
21 
8$ 

#10,R2 
#UIPDRO,RO 
(RO) ,AWSIT 
7$ 

R5,RO 

7$ 

22 


LARA RE ERE AKEKEREKEREKERKEEKKREKEEEKEEREEEEEEEEEKREEKEKEKEEEEKEKKKK 


+ G0 TO USER MODE FOR THIS TEST 

;TURN T-BIT TRAPPING OFF FOR THIS TEST 
:SET LOOP COUNTER TO 4 

LOAD ADDRESS OF PAR3S INTO RO 

;LOAD *‘12-16K*' PAR VALUE INTO R1 


;MAP PARS 3-6 TO 12-16K 


sLOOP TIL ALL 4 OF THEM LOADED 

sLOAD ADDRESS OF FIRST PDR TO BE TESTED IN RS 
>SET LOOP COUNTER TO 8 

: INITIALIZE VIRTUAL ADDRESS TO BE IN R3 
:SET LOOP ON ERROR POINTER TO 3$ 

sLOAD ADDR. OF FIRST PDR TO BE SETUP IN RO 
Bod LOOP COUNTER TO 

:PUT ‘W-BIT OFF DATA’ INTO R1 

;CLEAR ALL W-BITS BY WRITING TO ALL PDRS 

; LOOP UNTIL ALL OF THEM SETUP 

:D0 ‘DATO’' TO VIRTUAL ADDR. y ith A W-BIT 
:DID THAT CAUSE W-BIT TO BE SET? 

:BRANCH IF YES 

:W-BIT DID NOT GET SET IN PDR 

sFOR TIGHTER SCOPE LOOP 


;REPLACE ERROR CALL WITH 
;' BR 3$'* = 000763 
;SKIP CHECKING a. ta a WILL SET W-BITS 


;SET LOOP COUNTER T 
;LOAD ADDR. OF FIRST PDR TO BE weer IN RO 
:DID ay IN OTHER PDRS REMAIN CLEAR 


: BRANCH 
;1F W-BIT SET, THEN WAS IT PDR UNDER TEST? 
:BRANCH IF YES 

:W-BIT GOT SET IN MORE THAN ONE PDR 

:FOR TIGHTER SCOPE LOOP 

; REPLACE ERROR CALL WITH 

;BR 3$°' = 000750 





MD-11=CJKDA=B KTF11=AA MMU AS sgn MACY11 ee 


CJKDAB.P11 


025632 


025750 


025752 
025756 


Sth 


005037 


11=JUN=79 13:1 


000092 


000100 


000002 
020000 


025432 
035150 
177776 


035114 
07 


172316 


025704 


172514 
001400 


001110 


001110 


001710 
000004 


1725354 


C 5 
Vi = JUN@79 13:21 PAGE 24 
W-BIT LOGIC resi. USER PDR'S 


7$: ADD #2,R0 :POINT RO TO NEXT PDR TO BE CHECKED 
SOB R2,6$ ;LOOP UNTIL ALL 8 CHECKED FOR CLEAR W-BIT 
MOV R1. (RS) WRITE TO THE PDR TESTED TO CLEAR W-BIT 
BIT (R5) ,AWBIT “DID WRITING PDR CLEAR THE W-BIT? 
Q “BRANCH IF YES 
ERROR 23 :W-BIT DID NOT CLEAR BY WRITING THE PDR 
:FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
:'BR 3$'' = 000740 
8$: ADD #2,R5 :POINT RS TO THE NEXT PDR TO BE TESTED 
ADD #20000, R3 :CHANGE VIRT. ADDR TO REF. NEXT PDR 
SOB R4 =LOOP BACK TO 3$ UNTIL ALL : PDR'S TESTED 
MOV #1$, SLPERR ;RESET LOOP ON ERROR POINTER TO 1$ 


JSR PC, TON 
PSW 


TURN T=BIT BACK ON FOR NEXT TEST 
“BACK TO KERNEL MODE BEFORE LEAVING 


De eee See eee Se Serer erRe rare re eeeeaeeseeeReserarerenss 


SRTEST 30 TEST ‘W=BIT'’ SPECIAL CASES 


*® 

* THIS TEST CHECKS TWO SPECIAL CASES OF THE W-BIT. FIRST CASE IS 
* THAT THE W-BIT SHOULD NOT SET IN PDR 7 WHEN WRITING TO 

* STATUS REG SRO (KERNEL PDR 7 IS USED). carte or IS a 

* THE W-BIT IS STILL SET IF THE ‘DATO’ IS ABORTE T 

* 

4 

rs 


DUE TO A 
TIMEOUT ERROR (KERNEL PDR6 & VIRTUAL ADDR 120000 ARE USED). 


RECA ERREEKEKEAKREREEKEERERKKEEKEEEREKEEREEEKREKEAEKEEKKEKEEREKKKEK 


730: 


SCOPE 


1$: JSR PC, TOFF ~~ OFF T=-BIT TRAPPING FOR THIS TEST 


MOV #776406,R1 ‘W-BIT OFF'’ VALUE FOR PDR IN R1 
MOV #2$,$LPERR ‘SET LOOP ON ERROR POINTER TO 2$ 
2$: MOV R1,KIPDR7 =LOAD KERNEL PDR 7 TO CLEAR W-BIT 
MOV SRO,RO ;READ PRESENT CONTENTS OF STATUS REG. 0 
MOV RO, SRO WRITE PRESENT CONTENTS OF SRO BACK TO ITSELF 
MOV KIPDR7.R2 “READ CONTENTS OF KIPDR7 INTO R2 
CMP R1,R2 :WAS W-BIT LEFT CLEARED? 
BEQ 3$ “BRANCH IF YES 
ERROR 24 :W-BIT IN KIPDR7 SET WHEN SRO WAS WRITTEN TO 
:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
:"BR 2$"' = 000765 
3$: MOV #3$, $LPERR “SET LOOP ON ERROR POINTER TO 3$ 
MOV R1,.KIPDR6 [LOAD KERNEL PDR6 WITH 77606. TO CLEAR W-BIT 
MOV #4$, ERRVEC :SET UP LOC. 4 TO 4$ FOR ODD ADDR. ABORT 
CLR a#140000 :CAUSE TIMEOUT ABORT THRU LOC. 
4$: MOV #KERSTK.KSP “RESTORE THE STACK POINTER 
MOV KIPDR6,R2 =READ KIPDR6 INTO R2 
BIS #100,R1 *R1-77506 
CMP R1_.R2 :WAS W-BIT SET? 
BEQ 5$ =BRANCH IF YES 
ERROR 25 :W-BIT WAS NOT SET DURING A TIMEOUT ABORT 
:FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
:'BR 3$°* = 000757 
5$: MOV R1.KIPDR6 *RESTORE KIPDR6 TO 77406 
MOV 71400, K IPAR6 sRESTORE KIPAR6 TO 1400 


SEQ 0054 
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MD-11=CJKDA=8 KTF11=AA MMU DIAG MACY11 ee? be Vanes tes 13:21 55 
CJKDAB.P 11 11=JUN=79 13:10 730 TEST ‘'W=BIT'’ SPECIAL CASES SEQ 0055 
2681 025764 012737 002076 000004 MOV ATIMERR,ERRVEC ;RESTORE NORMAL CPU TRAP ROUTINE TO LOC.4 
2682 025772 012737 025640 001110 MOV #1$,$LPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
oar 026000 004737 035150 JSR PC,TON ; TURN T-BIT TRAPPING BACK ON 
2685 5 RARER RRR ERERREEEEEREREREEEREEREEREREEERRREREERERREREREREE 
2686 ;* 
2687 3* THE NEXT THREE (3) TESTS CAUSE MEMORY MANAGEMENT ERRORS 
2688 ;* TO CHECK THE ABILITY OF STATUS REGISTER O TO RECORD KT 
2689 7* ERRORS AND THE ABILITY OF STATUS REGISTER 2 TO LOCK UP THE 
2690 ;* VIRTUAL ADDR. OF THE INSTRUCTION THAT CAUSED THE ERROR. 
2691 3* THE BITS OF §R2 ARE CHECKED AND BITS <15:13>, <6: —" AND <3:0> 
2692 ;* ARE CHECKED IN SRO. SO THE SRO AND SR2 LOGIC AND T HE 
soon “tea KT ERROR LOGIC ARE CHECKED. 
** 
2695 SUISSE IOI IOI ISIS ISIS ISO IIUIIIOIIIIOINIOIO IIIT II tt 
2696 
2697 SI KERIKERI KKK EEK EERE RK KEKE 
ds STEST 31 NON-RESIDENT ABORT TEST (ACF=084) 
** 
2700 ;* THIS TEST CHECKS THE ACCESS CONTROL FIELD (ACF) COMPARATOR 
2701 ;* LOGIC BY CAUSING NON-RESIDENT ABORTS IN BOTH KERNEL AND 
2702 ;* USER MODES. PDR 4 IS LOADED WITH ACF'S = 084 AND 
Soot s@ THEN PHYSICAL ADDR. 60000 IS ACCESSED TO CAUSE THE ABORT. 
** 
2705 BI I IOI IOI IOIOI IOI IOI III II IORI RIT TRI At 
Sone 026004 000004 TST31: SCOPE 
2708 026006 012700 000600 1$: MOV #600,R0 ;LOAD DATA FOR PAR'S INTO RO 
2709 026012 010037 172346 MOV RO,KIPARS sMAP KERNEL PAR'S 384 TO 12-76K 
2710 026016 010037 172350 MOV RO, KIPAR4 
2711 026022 010037 177646 MOV RO,UIPAR3 ;MAP USER PAR'S 384 TO 12-16K 
2712 026026 010037 177650 MOV RO, UIPAR4 
2713 026032 012737 077406 172306 MOV #77406, KIPDR3 sMAP KERNEL PDR 3 128 a? ante 
2714 026040 012737 077406 177606 MOV #77406,UIPDR3 ;MAP USER PDR 3 128 BLKS, READ 
2715 026046 012700 00 MOV #60000 ,RO ;LOAD VIRTUAL ADDR. TO REF ERENCE E PORS INTO RO 
2716 026052 012701 100000 MOV #100000 ,R1 = LOAD VIRTUAL ADDR. TO REFERENCE PDR4 INTO R1 
2717 026056 012703 100011 MOV #100011,R3 ;LOAD R3 WITH WHAT SRO SHOULD READ - N.R., KERNEL, PG.4 
2718 026062 012702 0774 MOV #77400,R2 ;LOAD ACF=0 (NON-RESIDENT) PDR VALUE IN R2 
2719 02 012737 026130 000250 2$: MOV 453 .MMVEC :POINT MEM. MGMT. TRAP VECTOR 7 5$ BELOW 
2720 026074 010237 172310 MOV R2,KIPDR4 ;LOAD ACF TEST VALUE INTO KIPDR4 
2721 026100 010237 177610 MOV R2,UIPDR4 ;LOAD ACF TEST VALUE INTO UIPDR4 
2722 026104 012737 026112 001110 MOV #38. SLPERR SET LOOP ON ERROR POINTER TO 3$ 
2723 026112 005010 3$: CLR (RO) ;CLEAR PHYS. LOC. “ USING PDR3 
2724 026114 013737 177776 001176 MOV PSW,$STMPO : SAVE PSW IN CASE OF ERROR 
2725 026122 52171 4$: INC (R1) ;TRY TO REF. IT USING PDR4 = SHOULD TRAP TO 5$ 
2726 026124 104026 ERROR 26 :MEM. MGMT. ABORT DID NOT OCCUR 
2727 FOR TIGHTER SCOPE LOOP 
2728 REPLACE ERROR CALL WITH 
2729 ;'BR 3$°° = 00077 
2730 026126 25 BR 8$ CH AROUND STATUS REG. CHECKS IF NO ABORT 
2731 026130 2706 000004 5$: ADD #4 ,SP “RESTORE STACK POINTER 
2732 026134 005710 TST (RO) :DID INSTRUCTION GET ABORTED & NOT EXECUTE 
2735 026136 001401 BEQ 6$ = BRANCH H IF YES 
2734 026140 104027 ERROR 27 ‘AOR TIGHTER WAS NOT ABORTED, LOC. GOT CHANGED 
2735 -FOR TIGHTER SCOPE LOOP 
27 “REPLACE ERROR CALL WITH 


. 2 
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MD-11=CJKDA=B KTF11-AA MMU DI 
CJKDAB.P11 11=JUN-79 13:10 731 NON-RESIDENT ABORT TEST (ACF=084) SEQ 0056 
2737 ;'BR 3$'" = 000764 
2738 026142 013737 177572 001272 6$: MOV SRO ,WASSRO ; READ STATUS REGISTER 0 
2739 026150 013737 177576 001274 MOV SR2,WASSR2 sREAD STATUS REGISTER 2 
2740 026156 020337 001272 CMP R3,WASSRO “DID Ay REPORT NON-RESIDENT ERROR CORRECTLY? 
2741 026162 001401 BEQ 7$ :BRANCH IF YES 
2742 026164 104030 ERROR 30 ;SRO DID NOT REPORT NON-RES. ERROR CORRECTLY 
2743 FOR TIGHTER SCOPE LOOP 
2744 ; REPLACE ERROR CALL WITH 
2745 ;'BR 3$'' = 000752 
2746 026166 012704 026122 7$: MOV #4$ ,R4 = LOAD R4 WITH WHAT SR2 SHOULD READ 
2747 026172 020437 001274 CMP R4,WASSR2 :DID SR2 LOCKUP RIGHT VIRTUAL ADDR. (=4$)? 
2748 026176 001401 BEQ 8$ = BRANCH IF YES 
2749 026200 104031 ERROR 31 :SR2 DID NOT LOCK VIRTUAL ADDR. OF NON=RES. ERROR 
2750 ;FOR TIGHTER SCOPE LOOP 
2751 ; REPLACE ERROR CALL WITH 
2752 ;*BR 3$°* = 000744 
2753 026202 042737 160000 177572 8$: BIC #160000, SRO > CLEAR THE ERROR BITS IN SRO 
2754 026210 032737 140000 001176 BIT #140000, $TMPO HAS ACF=084 BEEN TESTED IN USER YET 
2755 026216 001006 BNE 9$ :BRANCH IF YES 
2756 026220 012703 100151 MOV #100151,R3 ;LOAD R3 WITH WHAT SRO SHOULD READ - N.R., USER, PG.4 
2757 026224 012737 140000 177776 MOV #140000 ,PSw :GO TO USER MODE 
2758 026232 000715 BR 2$ ;REPEAT TEST IN USER MODE 
2759 026234 022702 077404 9$: CMP #77404 ,R2 HAS ACF=4 BEEN TESTED YET? 
2760 026240 001407 BEQ 10$ BRANCH IF YES 
2761 026242 012702 077404 MOV #77404 ,R2 ; THEN LOAD ACF=4 (NON-RES) PDR VALUE IN R2 
2762 026246 012703 100011 MOV #100011,R3 LOAD R3 WITH WHAT SRO SHOULD READ=-N.R.,KERNEL.PG. 4 
2763 026252 005037 177776 CLR PSW :GO BACK TO KERNEL MODE 
2764 026256 000703 BR 2$ :GO BACK & TEST ACF=4 IN SAME MODE 
2765 026260 005037 177776 10$: CLR PSW ;GO BACK TO KERNEL MODE SEFORE LEAVING 
2766 026264 012737 026006 001110 MOV #1$,$LPERR sRESET LOOP ON ERROR POINTER TO 1$ 
2767 026272 012737 002150 000250 MOV #MGMERR ,MMVEC sRESTORE ADDRESS OF NORMAL MEMORY 
the = MANAGEMENT ERROR ROUTINE TO MMVEC 
2770 SIRI RIKKI RE REE RERE REE ERE REE EK 
thal RTEST 32 READ-ONLY ABORT TEST (ACF=2) 
o 
2773 ;* THIS TEST CHECKS THE ACCESS CONTROL FIELD (ACF) COMPARATOR 
2774 7* LOGIC BY ‘a ~: READ-ONLY ABORTS IN BOTH 7a AND 
2775 ;* USER MODES. PDR 4 IS LOAD WITH ACF=2 AND THEN 
5559 ;* PHYSICAL ADDR. 60000 IS WRITTEN 10 CAUSE THe ABORT. 
+ 
2778 PSST TITTTICTTTTITTTTTTTTTET TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
2779 026300 000004 TST32: SCOPE 
2780 026302 1$: sKERNEL & USER PAR'S 3 - 4 AND PDR 3 
2781 TARE SETUP FROM LAST TEST 
2782 026302 012700 060000 MOV #60000 ,RO ;LOAD VIRTUAL ADDR. TO REFERENCE PDR3 INTO RO 
2783 026 012701 100000 MOV #100000 . R1 LOAD VIRTUAL ADDR. TO REFERENCE PDR4 INTO R1 
2784 026312 012703 020011 MOV #20011 LR3 *LOAD R3 WITH WHAT SRO SHOULD READ - R/O, KERNEL, PG.4 
2785 026316 012702 077402 MOV #77402,R2 LOAD ACF=2 (READ-ONLY) PDR VALUE IN R2 
2786 026322 012737 026364 000250 28: MOV 45$ .MMVEC “BOIN NT MEM. MGMT. TRA? VECTOR TO 5$ BELOW 
2787 0263 010237 172310 MOV R2,KIPDR4 ;LOAD ACF=2 INTO KIPDR4 
2 026334 010237 177610 MOV R2,UIPDR4 LOAD ACF=2 INTO UIPDR4 
2789 026340 012737 026346 001110 MOV #3$, $LPERR ;SET LOOP GN ERROR POINTER TO 3$ 
2790 026346 005010 3$: CLR (RQ) :CLEAR PHYS. LOC. 60000 USING PDR3 
2791 026350 013737 177776 001176 MOV poy, STMPO > SAVE PSW IN CASE OF R 


ERROR 
2792 026356 005211 4$: INC (R1) :TRY TO WRITE USING PDR4 = SHOULD TRAP TO 5$ 
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>MEM. MGMT. ABORT DID NOT OCCUR 
sFOR TIGHTER SCOPE LOOP 


sREPLACE, ERROR CALL WITH 
;‘BR 3$'' = 000772 


; BRANCH AROUND STATUS REG. CHECKS IF NO ABORT 

sRESTORE STACK POINTER 

:DID INSTRUCTION GET ABORTED & NOT EXECUTE 

:BRANCH IF YES 

Fin Ae UE WAS NOT ABORTED, LOC. GOT CHANGED 
;FOR TIGHTER SCOPE LOOP 

; REPLACE ERROR CALL WITH 

;‘BR 3$'* = 000764 


READ STATUS REG. 0 
sREAD STATUS REG. 2 
DID ~y wee READ-ONLY ERROR CORRECTLY? 


:BRANCH IF YES 
:SRO DID NOT REPORT R/O ERROR CORRECTLY 
:FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

;'BR 3$'' = 000752 


[LOAD R4 WITH WHAT SR2 SHOULD READ 
DID og ee RIGHT VIRTUAL ADDR. (=4$)? 
 SR2 DID NOT LOCKUP VIRTUAL ADDR. OF R/O ERROR 
sFOR TIGHTER SCOPE LOOP 

; REPLACE ERROR CALL WITH 

;' BR 3$'* = 000744 


7 CLEAR THE ERROR BITS IN SRO 
:HAS ACF=2 BEEN TESTED IN USER MODE? 
“BRANCH IF YES 


:LOAD R3 WITH — SRO SHOULD READ=-R/0, USER, PG.4 


:GO TO USER MO 

:REPEAT TEST IN USER MODE 

:GO BACK TO KERNEL MODE BEFORE LEAVING 
:RESET LOOP ON ERROR POINTER TO 1$ 
sRESTORE ADDRESS OF NORMAL MEMORY 


:MANAGEMENT ERROR ROUTINE TO MMVEC. 


WADA AAAAAAARRRESAAERESRRSSLESESASE SESE SES REESE ES ERS SCE ESOS SE 


THE NEXT TWO (2) TESTS WILL 5 ‘ey THE PAGE LENGTH 


T ERROR DETECTION 


THE PAGE LENGTH FIELD (PLF) 4 a 


THREE (3) VIR 
ING BOTH UPWARD & DOWNWARD once 


MD=11=CJKDA=B KTF11=AA MMU DIAG MACY117 30A(1052) 17=JUN=79 13:21 
CJKDAB.P11 11=JUN=79 13:10 T32 READ-ONLY ABORT TEST (ACF=2) 
2793 026360 104026 ERROR 26 
2794 
2795 
2796 
2797 026362 25 BR 8$ 
2798 026364 2706 000004 S$: ADD #4 SP 
2799 026370 605710 TST (RO) 
2800 026372 001401 BEQ 6$ 
2801 026374 104027 ERROR 27 
2802 
2805 
2804 
2805 026376 013737 177572 001272 6$: MOV SRO,WASSRO 
2806 026404 013737 177576 001274 MOV SR2,WASSR2 
2807 026412 020337 001272 CMP R3,WASSRO 
2808 026416 001401 BEQ $ 
2809 026420 104030 ERROR 30 
2810 
2811 
2812 
2813 026422 012704 026356 7$: MOV #4$,R4 
2814 026426 020437 001274 CMP R4,WASSR2 
2815 026432 001401 BEQ 8$ 
2816 0264 10403 ERROR 371 
2817 
2818 
2819 
2820 026436 042737 160000 177572 8$: BIC #160000, SRO 
2821 026444 032737 140000 001176 BIT #140000, $TMPO 
2822 026452 001006 BNE 9$ 
2823 026454 012703 020151 MOV #20151,R3 
2824 026460 012737 140000 177776 MOV #140000,PSW 
2825 026466 715 BR 2$ 
2826 026470 005037 177776 9$: CLR PSW 
2827 026474 012737 026302 001110 MOV #1$,$LPERR 
ose 026502 012737 002150 000250 MOV AMGMERR , MMVEC 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 s: 
2842 :* 
2843 * 
2844 i* COMPARATORS AND SOME MORE OF 
2845 ;* AND STATUS LOGIC. 
2846 :* PDR 4 IS VARIED AND FOR EVERY PLF, 
sf 3% ADDRESSES ARE READ. 
*® 


WHILE U 
EXPANSION, ONE OF THOSE THREE VIRTUAL ADDRESSES WILL CAUSE A 


SEQ 0057 





MD=11=CJKDA=B KTF11=AA_ MMU 
11=JUN=79 13:10 


CJKDAB.P11 


026510 


026556 


026562 
026566 
026570 


026572 
26576 
6602 


012437 
005730 


077104 


012701 


012737 


012437 
005730 
104035 


000424 
012706 


077406 
077406 


001100 


172310 
000005 


026622 
926654 
172310 


0U1100 


DIAG MACY71 30A(1052) 
T32 


172306 
172312 


000250 
001110 


001110 
000250 


001272 
001274 
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13:21 PAGE 58 


17=JUN=79 
READ-ONLY ABORT TEST (ACF=2) 
8 ‘PAGE LENGTH ABORT'' WHILE THE OTHER TWO WON'T. 
** 
+s STATUS REGISTER 0 & 2 ARE CHECKED WHEN THE PAGE LENGTH 
:* ABORT DOES OCCUR TO SEE THAT THE ABORT IS REPORTED AND THAT 
Z THE VIRTUAL ADDRESS OF THE INSTRUCTION THAT CAUSED THE ABORT 
:* 1S LOCKED UF. 
** 
SOG ISIS SI IOIIOIISISIIUIDIIOIOI OOO IOI ISI III IOI II I ott 
SAREE REAR KEKE REE ERE ERE E EK 
SSTEST 33 PAGE LENGTH FAULTS-UPWARD EXPANSION 
** 
Z THIS TEST VARIES THE PAGE LENGTH FIELD (PLF) IN KERNEL PDR 4 
ok FROM 1 TO 177 AND FOR EACH PLF, THREE VIRTUAL ADDRESSES (VBA'S) 
:* ARE ACCESSED. WHEN VBA <12:6> IS LESS THAN OR EQUAL TO PDR <14:8> 
;* NO ABORT SHOULD OCCUR. WHEN VBA <12:6> IS GREATER THAN PDR <14:8>, 
:* A PAGE LENGTH ABORT SHOULD OCCUR AND BE REPORTED BY SRO & SR2. 
- THE PAGE EXPANSION DIRECTION IN THIS TEST IS UPWARD, (THE ED BIT 
** (BIT 3) OF PDR 4 = 0). 
** 
PETTITT TTT TILILE TITEL TTT TTT TTT TTT TT ELT TT TTT TTT TTT TTT TT 
TS133: SCOPE 
1$: MOV #77406,KIPDR3  ;MAME SURE PDR3 IS DESCRIBED AS R/W 
MOV #77406,KIPDR5 :MAKE SURE PDR5 IS DESCRIBED AS R/W 
MOV #DALTB1,RO :DAL TABLE FOR VIRTUAL ADDR'S. TO SELECT PDR4. 
MOV #PDRTB1.R4 :PDR TABLE FOR PDR4 (COINCIDES WITH DAL TABLE). 
MOV #6,R1 :SET UP LOOP COUNTER. 
MOV #9$ .MMVEC :SETUP M.M. TRAP VECTOR FOR UNEXPECTED ASORTS 
MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2% 
MOV #KERSTK,KSP :MAKE SURE STACK POINTER IS ALL SET UP 
: TEST NON-ABORT CASES (VBA < OR = PLF) 
2$: MOV (R4)+,KIPDR4  ;LOAD KIPDR4 WITH PAGE LENGTH VALUE 
TST a(RO) + “ACCESS VIRTUAL ADDR. (VBA < OR = PLF) 
=NO ABORT SHOULD OCCUR!!! 
SOB R1,2$ :DONE?...NO- TEST NEXT COMBINATION OF DAL & PDR. 
-TEST ABORT CASES (VBA > PLF) 
$$: MOV #5,R1 :SET UP LOOP COUNTER. 
MOV #DALTB2.RO “DAL TABLE 
MOV #PDRTB2 .R4 “PDR TABLE 
MOV #4$,$LPERR -SET LOOP ON ERROR POINTER TO 4$ 
MOV #6$.MMVEC -SETUP M.M. TRAP VECTOR FOR EXPECTED ABORT 
4$: MOV (R4)+,KIPDR4 | :LOAD KIPDR4 WITH PAGE LENGHT VALUE 
S$: TST a(RO)+ :ACCESS VIRTUAL ADDR. (VBA > PLF = ABORT TO 6$) 
ERROR 35 “EXPECTED PAGE LENGTH ABORT DID NOT OLCUR 
-FOR TIGHTER SCOPE LUOP 
;REPLACE ERROR CALL WITH 
-"BR 5$°° = 000776 
BR 8$ “BRANCH AROUND ABORT CHECKS 
6$. MOV #HKERSTK,KSP sRESTORE STACK POINTER FOLLOWING ABORT 
MOV SRO, WASSRO “READ M.M. STATUS REG. 0 
MOV SR2.WASSR2 “READ M.M. STATUS REG. 2 


SEQ C958 


A alg KTF11=-AA_ MMU DIAG MACY11 30A(1052) 
11=JUN=79 13:10 133 


CJKDAB.P11 


2905 


026654 
26660 


6664 
026666 


026744 
026752 


026754 
026760 
026764 


026766 
026774 


027002 


027022 


027024 


027042 
027044 


012702 


104032 


013746 
013746 
000002 


012737 
012737 


000137 


940011 
091272 


026626 
001274 


160000 
026766 


160000 


001270 


001266 


026512 


002150 
027072 


177572 


001272 
001274 
177572 


001110 
000250 


7$: 


8$: 


m$: 


10$: 


DAL.TB1: 
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59 
PAGE LENGTH FAULTS=UPWARD EXPANSION 


;PDR TABLE FOR 


PDRTB1: 


171-JUN=79 
MOV #40011,R2 
CMP R2,WASSRO 
BEQ 7$ 
ERROR 34 
MOV #5$,R3 
CMP R3,WwASSR2 
BEQ 8$ 
ERROR 35 
Sic #160000, SRO 
SOB R1,4$ 
JMP 10% 
MOV (KSP) +, TRAPPC 
MOV (KSP) +, TRAPPS 
MOV SRO, WASSRO 
MOV SR2,WASSR2 
BIC #160000, SRO 
ERROR 32 
MOV TRAPPS , = (KSP) 
MOV TRAPPC ,~(KSP) 
RTI 
MOV #1$,$LPERR 
MOV #MGMERR , MMVEC 
JMP TST34 

;DAL TABLE FOR UPWARD EXPANSION 
100000 
106190 
102300 
102500 
113700 
104600 
117700 
KPDR4 (NON-ABORT 

000006 
052006 
045006 
052006 ; 
074406 
025006 
077406 


;DAL_TABLE (ABORT CASES) 


DAL TB2: 


100100 
110100 


;PUT EXPECTED SRO CONTENTS IN R2 

;DID SRO REPORT PG. LENGTH ASORT, PAGE 4, KERNEL? 
;BRANCH IF YES 

SRO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 
:FOR TIGHTER SCOPE LOOP 

; REPLACE, ERROR CALL WITH 

;' BR 5$°' = 000757 


:PUT EXPECTED SR2 CONTENTS IN R3 
:DID SR2 LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 


;BRANCH IF YES 


:SR2 DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 


sFOR TIGHTER SCOPE LOOP 


; REPLACE ERROR CALL WITH 
;'BR 5$°" = 000751 


CLEAR ERROR BITS IN SRO 
:DONE?..NO = GET NEXT DAL & PDR PAIR 


“YES... 
;SAVE PC & PS OF TRAP 


:SAVE CONTENTS OF SRO FOR ERROR 

sSAVE CONTENTS OF SR2 FOR ERROR 

;CLEAR ERROR BITS IN SRO 

:GOT PG. LENGTH ABORT BEFORE IT WAS EXPECTED 
:FOR TIGHTER SCOPE LOOP 


ene ERROR CALL WITH 
‘'NOP** = 000240 
‘PUT PC g PS OF TRAP ON STACK 


sRETURN FROM UNEXPECTED ABORT 


sRESET LOOP ON ERROR POINTER TO 1$ 
sRESTORE NORMAL M.M. TRAP HANDLER 
sADDRESS TO M.M. TRAP VECTOR 


(NON-ABORT CASES) 


CASES) 


I 5 
AG MACY11 30A(1052) 1Ti=JUN=79 13:21 PAGE 60 


MD=11=CJKDA=B KTF11=AA MMU DI 
CJKDAB.P11 11=JUN=79 13:10 133 PAGE LENGTH FAULTS=UPWARD EXPANSION SEQ 0060 
2961 027046 116600 116600 
e962 027050 112700 112700 
2963 027052 117000 117000 
Sace 027054 117700 117700 
2966 ;PDR TABLE (ABORT CASES) 
2967 027056 000006 PDRTB2: 000006 
2968 027060 030406 
2969 027062 046406 046406 
2970 027064 04200 042006 
2971 027066 073406 073406 
2972 027070 077006 077006 
2973 
2976 
2975 . RRR KK KKK KEE KEKKKEEK EEE REE EREKKEEEKEKKKKEE 
4a sSTEST 34 PAGE LENGTH FAULTS=DOWNWARD EXPANSION 
2978 te THIS TEST VARIES THE PAGE LENGTH FIELD (PLF) IN KERNEL PDR4 
2979 ad FROM 176 TO 0 AND FOR EACH PLF, THREE VIRTUAL ADDRESSES (VBA'S) 
2980 7* ARE ACCESSED. WHEN VBA <12:6> IS GREATER THAN OR EQUAL TO PDR <14:8> 
2981 Y he NO PAGE ABORT SHOULD OCCUR. WHEN VBA <12:6> IS LESS THAN PDR <14:8> 
2982 ‘3* A PAGE LENGTH ABORT SHOULD OCCUR AND BE REPORTED BY SRO & SR2. 
2983 te THE PAGE EXPANSION DIRECTION IN THIS TEST IS DOWNWARD, (THE ED BIT 
Sone ge (BIT 3) OF PDR4=1). 
;* 
2986 CT AREA KEKRKEKKKKEEKEEEKKKKKKEKEKEEEREREKKKEKEEREKKEEEKEEKEKEKEKEKEK 
2987 027072 000004 TST34: SCOPE 
2988 027074 012700 027354 1$: MOV ADALTB3,RO sDAL TABLE FOR VIRTUAL ADDR*S. TO SELECT PDR4. 
2989 027100 012794 027372 MOV #PDRTB3,R4 sPDR TABLE FOR PDR4 (COINCIDES WITH DAL TABLE). 
2990 027104 012701 000006 MOV #6,R1 ;SET UP LOOP COUNTER 
2991 027110 012737 027266 000250 MOV #9$% ,MMVEC ;SETUP M.M. TRAP VECTOR FOR UNEXPECTED ABORTS 
2992 027116 012737 027130 001110 MOV 42% ,$LPERR ;SET LOCP ON ERROR POINTER TO 2$ 
34d, 027124 012706 001100 MOV #KERSTK,KSP ;MAKE SURE STACK POINTER IS ALL SET UP 
2995 ; TEST NON-ABORT CASES (VBA > OR = PLF) 
2996 027130 012437 172310 2$: MOV (R4)+,KIPDR4 sLOAD KIPDR4 WITH PAGE LENGTH VALUE 
2997 027134 005730 TST a (RO) + sACCESS VIRTUAL ADDR. (VBA > OR = PLF) 
2998 :NO ABORT SHOULD OCCUR!!! 
2999 027136 077104 SOB R1,2$ ;DONE?...NO- TEST NEXT COMBINATION OF DAL & PDR. 
3001 sTEST ABORT CASES (VBA < PLF) 
3002 027140 012701 000005 3$: MOV #5,R1 :SET UP LOOP COUNTER. 
3003 027144 012700 027410 MOV #DALTB4 RO :DAL TABLE 
027150 012704 027424 MOV #PDRTB4 ,R4 ;PDR TABLE 
3005 027154 912737 027170 001110 MOV #4$,$LPERR :SET LOOP ON ERROR POINTER TO 4$ 
Sy, 027162 012737 027202 000250 MOV #6$ ,MMVEC ;SETUP M.M. TRAP VECTOR FOR EXPECTED ABORT 
3008 027170 012437 172310 4$: MOV (R4)+,KIPDR4 ;LOAD KIPDR4 WITH PAGE LENGHT VALUE 
3009 027174 005730 5$: TST a (RO) + sACCESS VIRTUAL ADDR. ‘(VBA < PLF ~ ABORT TO 6$) 
3010 027176 104033 ERROR 33 sEXPECTED PAGE LENGTH ABORT DID NOT OCCUR 
3011 :FOR TIGHTER SCOPE LOOP 
3012 sREPLACE, ERROR CALL WITH 
30135 ;‘BR 5$°* = 000776 
3014 027200 000424 BR 8$ ; BRANCH AROUND ABORT CHECKS 
3015 027202 012706 001100 6$: MOV #KERSTK,KSP sRESTORE STACK POINTER FOLLOWING ABORT 
3016 027206 013737 177572 001272 MOV SRO, WASSRO sREAD M.M. STATUS REG. 0 


J 35 
PAGE 61 


;READ M.M. STATUS REG. 2 
:PUT EXPECTED SRO CONTENTS IN R2 
:D1D ny oe vid PG. LENGTH ABORT, PAGE 4, KERNEL? 


ANCH Y 
SRO DID NOT REPORT PG. LENGTH ABORT CORRECTLY 
:FOR TIGHTER SCOPE LOOP 

; REPLACE, ERROR CALL WITH 

;‘BR 5$°* = 000757 

PUT EXPECTED SR2 CONTENTS IN R3 

:DID SR2 LOCKUP VIRT. ADDR. OF ABORTED INSTRUCTION? 


:SR2 DID NOT LOCKUP VIRT. ADDR. OF ABORT CORRECTLY 
:FOR TIGHTER SCOPE LOOP 

;REPLACE, ERROR CALi WITH 

;' BR 5$°' = 000751 


: CLEAR ERROR BITS IN 


N SRO 
ONE?..NO - GET NEXT DAL & PDR PAIR 


sVES.. 
:SAVE PC & PS OF TRAP 
sSAVE CONTENTS OF SRO FOR ERROR 


sSAVE CONTENTS OF SR2 FOR ERROR 

;CLEAR ERROR BITS IN SRO 

:GOT PG. LENGTH ABORT BEFORE IT WAS EXPECTED 
sFOR TIGHTER SCOPE LOOP 


REPLACE ERROR CALL WITH 

7A ‘NOP’ = 000 

;PUT PC & PS OF TRAP ON STACK 
;RETURN FROM UNEXPECTED ABORT 
;RESET LOOP ON ERROR POINTER TO 1$ 


sRESTORE NORMAL M.M. TRAP HANDLER 
sADDRESS TO M.M. TRAP VECTOR 


MD-11=CJKDA=B KTF11=AA MMU DIAG MACY11 30A(1052) 177=JUN=79 13:21 

CJKDAB.P11 11=JUN-79 13:10 134 PAGE LENGTH FAULTS=DOWNWARD EXPANSION 
3017 027214 013737 177576 001274 MOV _— SR2, WASSR2 
3018 027222 012702 040011 MOV «#40011, R2 
3019 027226 020237 001272 (MP —s- R2, WASSRO 
3020 027232 001401 BEQStié7'S 
3021 027234 104034 ERROR 34 
3022 
3023 
3024 
3025 027236 012703 027174 7$: MOV = #5$,R3 
3026 027242 020337 001274 (MP —s- R3,, WASSR2 
3027 027246 001401 BEQtiéS 
3028 027250 104035 ERROR 35 
3029 
3031 
3032 027252 042737 160000 177572 8$: BIC —-#160000.SRO 
3033 027260 077135 SOB séR1,4$ 
3034 027262 000137 027334 MP 
3035 027266 012637 001266 9$: MOV _— (KSP) +, TRAPPC 
3036 027272 012637 001270 MOV _—s(KSP) +. TRAPPS 
3037 027276 013737 177572 001272 MOV _—« SRO, WASSRO 
3038 027304 013737 177576 001274 MOV —« SR2, WASSR2 
3039 027312 042737 160000 177572 BIC #160000,SRO 
3040 027320 104032 ERROR 32 
3041 
3042 
3043 
3044 027322 013746 001270 MOV _—sCTRAPPS,, = (KSP) 
3045 027326 013746 001266 MOV —sCTRAPPC.=(KSP) 
$046 027332 000002 RTI 
2048 027334 012737 027074 001110 10$: MOV  #1$.$LPERR 
$049 027342 012737 002150 000250 MOV ——« #MGMERR., MMVEC 
3051 027350 000137 027440 IMP —s«sTST35 
3053 ;DAL TABLE FOR DOWNWARD EXPANSION (NON-ASORT CASES) 
3054 027354 117700 DALTB3: 117700 
3055 027356 111600 111600 
3056 027360 115400 115400 
3057 027362 115200 115200 
3058 027364 104000 104000 
3059 027366 113100 113100 
3060 027370 100000 100000 
3062 ;PDR TABLE (NON-ABORT CASES) 
3063 027372 077416 PDRTB3: 77416 
3064 027374 025416 25416 
3065 027376 032416 32416 
3066 027400 025416 25416 
3067 027402 003016 03016 
3068 027404 052416 52416 
$069 027406 000016 00016 
3071 :DAL TABLE (ABORT CASES) 
3072 027410 117600 DAL TB4: 117600 


K § 
13:21 PAGE 


MD=11=CJKLA“B KTF11=AA MMU DIAG MACY71 30A(1052) 17=JUN=-79 62 
CJKDAB.P11 —- 11=JUN=79 13:10 134 PAGE LENGTH FAULTS=DOWNWARD EXPANSION SEQ 0062 
3073 027412 107600 107600 
3074 027414 101100 101100 
3075 027416 105000 105000 
2076 027420 10070C 100700 
3077 027422 100000 100000 
3079 :PDR TABLE (ABORT CASES) 
3080 027424 077416 PDRTB4: 77416 
3081 027426 047016 47016 
3082 027430 031016 31016 
3083 027432 035416 35416 
2084 027434 004016 04016 
3085 027436 000416 00416 
3086 
3087 
3088 
3089 CREAR EEK KEKE EERE 
3090 SRTEST 35 SR2 BIT TEST 
*“* 
3092 :* THIS TEST CHECKS THE BITS IN MEMORY ¥ MANAGEMENT REGISTER 2 BY 
3093 :* CAUSING ‘READ-ONLY ABORTS'’ AT VIRTUAL ADDRESSES BETWEEN 100000 
3094 7s TO 110000 (PHYSICAL ADDRESSES §60000+070000)° KIPDR4 IS USED TO EXECUTE 
3095 :* THE FOLLOWING FOUR WORDS OF CODE WHICH ARE MOVED THRU MEMORY: 
3096 i 010727 MOV PC,(PC)+ = THIS INSTRUCTION SHOULD CAUSE A R/O ABORT 
3097 : 000000 :1TS VIRTUAL ADDR. SHOULD BE LOCKED UP IN SR2 
3098 :* 000137 JMP a#3$  :THIS INSTRUCTION IS ALSO MOVED THRU MEMORY 
3099 :* (ADDR. OF 3$) :IN CASE A R/O ABORT DOES NOT OCCUR, 
Uy :* > IN WHICH CASE SR2 WILL NOT CONTAIN CORRECT ADDR. 
** 
3102 TIDES SISO UISISISISOUISISOISIOIOIIOOISIIOI III RIOR tok ttt 
3103 027440 TST35: SCOPE 
3104 027442 012737 000600 172346 1$: MOV #600, KIPAR3 ;BE SURE PAR3 IS MAPPED TO 12-16k ° 
3105 027450 012737 000600 172350 MOV #600.KIPARG “BE SURE PAR4 IS MAPPED TO 12-16k 
3106 027456 012737 077406 172306 MOV #77406,KIPDR3 :MAP PAGE 3 128 BLOCKS. R/W 
3107 027464 012737 077402 172310 MOV #77402,KIPDR4 :MAP PAGE 4 128 BLOCKS. READ-ONLY 
3108 027472 012700 060002 MOV #60002.RO :LOAD RO WITH VIRTUAL ADDR. WHICH USES PDR3 
3109 027476 012701 100002 MOV #100002,R1 [LOAD R1 WITH VIRTUAL ADDR. WHICH USES PDR4 
3110 027502 012737 027536 000250 MOV #3$ .MMVEC “SET M.M. TRAP VECTOR TO 3$ 
3111 027510 012737 027516 001110 MOV #2$.$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
3112 027516 012720 010727 2$: MOV nO16707, (RO) + “MOV PC. (PC) #°" INSTRUCTION AT ADDR. 
3113 027522 005020 CLR (RO) + REACHED THRU PDR/PAR 4. 
3114 027524 012720 000137 MOV #000137, (RO)+ “LOAD ‘IMP a#3$'" INSTRUCTION AT VIRT. ADDR. 
3115 027530 012710 027536 MOV #3$, (RO) IN CASE R/O VIOL. DOES NOT ABORT 
3116 027534 010107 MOV R1,PC : TRANSFER PROGRAM EXECUTION TO ‘PAGE 4 INSTRUCTIONS'' 
3117 027536 012706 001100 3$: MOV #KERSTK.KSP “RESTORE STACK POINTER 
3118 027542 013737 177576 (001274 MOV SR2,WASSR2 “READ CONTENTS OF STATUS REG 2 
3119 027550 020137 001274 CMP R1,WASSR2 :WAS ADDR. OF ‘RELOCATED - R/O ABORT'’ LOCKED uP? 
3120 027554 001401 BEOQ 4$ “BRANCH IF YES 
3121 027556 104036 ERROR 36 : SR2 DID NOT LOCK UP VIRTUAL ADDR. OF R/O VIOL. 
3122 “FOR TIGHTER SCOPE LOOP 
3123 ;REPLACE ERROR CALL WITH 
3124 :'BR 2$'' = 000757 
3125 027560 042737 160000 177572 4$: BIC #160000, SRO “CLEAR THE ERROR BITS IN SRO 
3126 027566 060101 ADD R1,R1 “SETUP TO FORM NEXT VIRTUAL ADDRESS 
3127 027570 010100 MOV R1-RO =SETUP RO TO FORM NEXT VIRT. ADDR. TO LOAD 
3128 027572 052701 100000 BIS #100000,R1 :FORM VIRTUAL ADDR. THAT SHOULD BE LOCKED UP NEXT 





MD-11=CJKDA=B KTF11=AA MMU DIAG 
11=JUN-79 


CJKDAB.P11 


027576 


027610 
027616 
027624 


027632 


52706 
020127 
101743 


012737 
012737 
012737 


13:10 
060000 
110000 


027442 
077406 
002150 


000600 


001274 


027714 


1 
001100 


MACY11 


001110 
172310 
000250 


001110 
001274 


001110 
000250 


001176 


2 
PAGE 63 


30A(1052) 17=JUN-79 13:21 
T35 SR2 BIT TEST 
BIS #60000 RO ;POINT RO TO NEXT VIRT. ADDR. TO LOAD 
CMP 1,4110000 :HAVE ALL VBA'S 100000-110000 BEEN TESTED? 
BLOS SS “BRANCH IF NO 
5$: MOV #1$,$LPERR :RESET LOOP ON ERROR POINTER TO 1$ 
MOV #77406,KIPDR4 =:RESTORE PDR4 TO R/W ACCESS 
MOV #MGMERR,MMVEC  :RESTORE ADDRESS OF NORMAL M.M. 
= TRAP HANDLER TO M.M. VECTOR 
SAAR KEEEKEKEKEEKEKREKREKEKREEKEKEREEREKKKEKEE 
CSTEST 36 MORE CHECKS OF SRO & SR2 
** 
:* THIS TEST PERFORMS SOME ADDITIONAL CHECKS OF THE SRO & SR2 LOGIC. 
te FIRST IT CHECKS THAT SR2 ''TRACKS'’ ALONG ACTING AS A VIRTUAL ADDRESS 
ie PROGRAM COUNTER. ALSO SRO & SR2 ARE LOCKED UP BY A PAGE LENGTH 
:* ABORT, THEN WITHOUT CLEARING SRO'S ERROR BITS, A R/O ABORT IS CAUSED. 
:* SRO & SR2 SHOULD NOT BE CHANGED BY THE S ABORT AND THE 
:* INFORMATION ABOUT THE PAGE LENGTH ABORT SOULD STILL BE LOCKED uP. 
:* IN ADDITION A 'RESET'’ IS EXECUTED TO VERIFY THAT SRO IS CLEARED 
:* AND SR2 IS UNLOCKED BY A RESET. AFTER MEMORY MANAGEMENT IS TURNED BACK ON. 
ze SR2 IS CHECKED TO SEE THAT IT IS TRACKING AGAIN. 
"* 
BIAS IOI IOISISIUIOIISOISIISIOIOIIUIOIOI ISO IOI IID IOI IOI III IOI I It tot 
1ST36: SCOPE 
1$: MOV #600, KIPARS :MAP KERNEL PAGE 5 TO 12-16K 
MOV #406, KIPDR4 :;SETUP PDR4 FOR PAGE LENGTH ABORT 
MOV #77402,KIPDR5 :SETUP PDRS FOR R/O ABORT 
MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2% 
2$: MOV SR2,WASSR2 :READ SR2 TO SEE IF ITS TRACKING 
MOV #2$.R1 =PUT EXPECTED VIRTUAL PC IN R1 
CMP R1,WASSR2 :DID SR2 CONTAIN VIRTUAL PC AT 2$? 
BEQ 3$ “BRANCH IF YES 
ERROR 41 =SR2 NOT TRACKING CORRECTLY 
:FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
:'BR 2$'' = 000767 
3$: MOV #4$,$LPERR “SET LOOP ON ERROR POINTER TO 4$ 
4$: MOV SR2,WASSR2 sREAD SR2 TO SEE IF ITS TRACKING 
MOV #4$.R1 ;PUT EXPECTED VIRTUAL PC IN R1 
CMP R1,WASSR2 DID SR2_ CONTAIN VIRTUAL PC AT 4$ 
BEQ 5$ “BRANCH IF YES 
ERROR 41 :SR2 NOT” TRACKING CORRECTLY 
“FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
"BR 4$°' = 000767 
S$: MOV #6$,$LPERR “SET LOOP ON ERROR POINTER TO 6$% 
6$: MOV #7$ ,MMVEC :PUT ADDRESS OF 7$ IN M.M. TRAP VECTOR 
CLR $TMP1 :CLEAR ERROR INDICATOR 
INC a#100500 =CAUSE PAGE LENGT T = TRAP TO 7$ 
7$: MOV #KERSTK.KSP sRESTORE STACK POINTER AFTER ABORT 
MOV SRO, $TMPO :SAVE SRO'S INFORMATION ON PG. |.GTH. ABORT 
MOV SR2.$TMP2 :SAVE SR2'S INFORMATION ON PG. LGTH. ABORT 
MOV #8$..MMVEC PUT ADDRESS OF 8$ IN M.M. TRAP VECTOR 
INC a4#120000 “CAUSE R/O ABORT - TRAP TO 8$ 
8$: MOV #KERSTK,KSP ‘ RESTORE STACK POINTER AFTER ABORT 


SEQ 0065 


/ 
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MD=11=CJKDA-B KTF11=AA MMU DIAG MACY11 30A(1052) 17=-JUN-79 13:21 

CJKDAB.P11 11=JUN=79 13:10 136 MORE CHECKS OF SRO & SR2 SEQ 0064 
3185 030020 013737 177572 001272 MOV SRO,WASSRO ;READ SRO FOLLWOING SECOND KT ABORT 
3186 030026 013737 177576 001274 MOV SR2 ,WASSR2 ;READ SR2 FOLLOWING SECOND KT ABORT 
3187 030034 023737 001176 001272 CMP STMPO,WASSRO ;1S SRO STILL HOLDING INFO ON FIRST ABORT? 
$188 030042 001402 b0 9$ :BRANCH IF YES 
3189 0300464 005237 001200 INC $TMP1 ;SET ERROR INDICATOR 
3190 030050 023737 001202 001274 9$: CMP $TMP2,WASSR2 § ;DOES SR2 STILL HOLD PC OF FIRST ABORT? 
3191 030056 0014 BEQ 10$ :BRANCH IF YES 
3192 030060 005237 001200 INC $TMP1 ;SET ERROR INDICATOR 
3193 0 005737 001200 10$: TST $TMP1 ;WERE SRO OR SR2 CHANGED BY A SECOND ABORT? 
3194 030070 001401 BEQ 11$ ;BRANCH IF NO 
3195 030072 104037 ERROR 37 sONE OF STATUS REGS. C: 4NGED BY SECOND ABORT 
3196 ;FOR TIGHTER SCOPE LOOP 
3197 ; REPLACE, ERROR CALL WITH 
3198 ;*BR 6$"* = 000726 
3199 030074 005037 001200 11$: CLR $TMP1 :CLEAR ERROR INDICATOR 
3200 030100 RESET EXECUTE A RESET, APPLYING AN “‘INIT’’ 
3201 030102 013737 177572 001272 MOV SRO, WASSRO SRO 
3202 030110 005737 001272 TST WASSRO SUAS SRO CLEARED BY THE RESET? 
3203 030114 001402 BEQ 12$ :BRANCH IF YE 
3204 030116 005237 001200 INC STMP1 ; SRO NOT. CLEARED BY A RESET 
3205 030122 013757 177576 001274 12%: MOV SR2,WASSR2 :READ SR2 
3206 030130 022737 030122 001274 CMP #12$ ,WASSR2 ; WAS SRD UNLOCKED BY A RESET? 
3207 0301 140 BEQ 13$ CH IF YES 
3208 030140 005237 001200 INC $TMP1 ® §R2 NOT UNLOCKED BY A RESET 
3209 030144 005737 001200 13$: TST $TMP1 WERE SRO . Ske BOTH ‘RESET’' BY A RESET? 
3210 030150 001401 BEQ 14$ ;BRANCH IF YES 
3211 030152 104040 ERROR 40 :SRO OR SRO NOT ‘'RESET’’ BY A RESET 
3212 ;FOR TIGHTER SCOPE LOOP 
3213 REPLACE ERROR CALL WITH 
3214 :'BR 6$°' = 000676 
3215 030154 012737 000001 177572 14$: MOV SRO TURN MEMORY MANAGEMENT BACK ON 
3216 030162 013737 177576 001274 15$: MOV sro. WASSR2 ;READ SR2 TO SEE IF ITS TRACKING AGAIN 
3217 030170 012701 030162 MOV #15$,R1 :PUT EXPECTED VIRTUAL PC IN R1 
3218 030174 020137 001274 CMP R1,WASSR2 D SR2 CONTAIN VIRTUAL PC AT 15$ 
3219 030200 0014 BEG 16$ CH_IF YES 
3220 030202 104041 ERROR 41  SR2 NOT TRACKING CORRECTLY 
3221 ;FOR TIGHTER SCOPE LOOP 
3222 ;REPLACE ERROR CALL WITH 
3223 : ;‘BR 6$"* = 000663 
3224 030204 012737 027634 001110 16$: MOV #1$,$LPERR RESET LOOP ON ERROR POINTER TO 1$ 
3225 030212 012737 077406 172310 MOV #77406,KIPDR4 ;RESET PDR4 TO 128 BLKS, R/w 
3226 030220 012737 077406 172312 MOV #77406,KIPDRS5 :RESET PDR5S TO 128 BLKS. R/W 
3227 030226 012737 002150 000250 MOV #MGMERR,MMVEC  ;RESTORE ADDRESS OF NORMAL MEMORY 
3228 :MANAGEMENT TRAP ROUTINE TO M.M. VECTOR 
356 
3231 FREAK EKER EKEEKKEKKRKEKEKEEEEKEEKKEEARKEEEREKEKKEKKEEKEKEE 
3032 SRTEST 37 USER ABORT PICKS UP KERNEL SPACE VECTOR 

** 

3234 ;* THIS TEST CHECKS TO BE SURE THAT WHEN AN ABORT OCCURS WHILE IN 
3235 3 USER MODE, THE TRAP VECTOR INFORMATION FETCHED IS TAKEN FROM 
3236 38 KERNEL SPACE. USER PAGE 0 IS MAPPED TO 12k (60000-77776) SO 
3237 ;* THAT IF USER SPACE IS USED INSTEAD OF KERNEL, THE NEW PC THAT 
3238 ;* WAS LOADED AT LOC. 060004 IS USED INSTEAD OF THE NEW PC THAT 
3239 ;* SHOULD BE PICKED UP. non LOC. 000004. A TIMEOUT ERROR IS USED 
3240 * TO CAUSE A TRAP TO ‘4°’ 
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CJKDAB.P11 
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01 
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177776 
177776 
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177640 
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177776 
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N 
13:21 


GE 65 
USER ABORT PICKS UP KERNEL SPACE VECTOR , 


“See ehetA PARRA AAAAAARALESASLLSSESLEOS SSS S EL ESE CELE RSE aa aS 


“* 
+8137: 
1$: 


3$: 


SCOPE 


JSR C,TOFF 
MOV 428, SLPERR 
CLR 


MOV PRERSTK, KSP 
MOV #600,,UIPARO 
MOV #4$ a4 


#340 ,a46 
MOV #140000, PSW 
MOV #USESTK.USP 
#33044 


MOV #346" ae 


TST 160000 
MOV PSW,R1 
MOV SP,R2 
R PSW 
ERROR 42 


; TURN OFF T=BIT TRAPPING FOR THIS TEST 
;SET LOOP ON ERROR POINTER TO 2$ 

>GO TO KERNEL MODE 

sSETUP KERNEL STACK PTR. 


sMAP USER PAGE 0 TO 12k 

sLOAD KERNEL VECTOR 4 (LOC.4) WITH 4$ 
sLOAD VECTOR+2 WITH NEW PSW 

:GO TO USER MOD 

sSETUP USER STACK PTR. 

; LOAD USER VECTOR 4 (LOC. — WITH 35$ 
sLOAD VECTOR+2 WITH NEW 

:CAUSE TIMEOUT ERROR TRAP TO a 
:SHOULD PICK UP NEW PC=4$ FROM KERNEL 
:LOC. 4, NOT PC= % FROM USER LOC. 4 (=60004) 
:SAVE PSW FOR ERR 

:SAVE VALUE OF STACK POINTER FOR ERROR 

:BE SURE BACK IN KERNEL MODE 

:DID NOT TRAP THRU KERNEL SPACE 

sFOR TIGHTER SCOPE LOOP 


SEQ 0065 
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030350 
Ssh tee 


050476 


000004 
012737 


012757 








] 
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035150 


oenne 


030454 
177776 


007437 
177776 


030424 
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177776 


000004 
001110 


00111¢ 


001110 


B 6 
11=JUN=79 13:21 PAGE 66 
USER ABORT PICKS UP KERNEL SPACE VECTOR 


*REPLACE, ERROR CALL WITH 
;‘BR 2$'' = 000740 


4$ CLR PSW BE SURE BACK IN KERNEL MODE 
MOV AKERSTK,KSP sRESTORE KERNEL _S.P. IN CASE IT CHANGED 
CLR UIPARO ;REMAP USER PAGE 0 TO 04k 
MOV #140000 ,PSW >GO TO USER MODE 
MOV AMUSESTK ,USP ;RESTORE USER STACK POINTER 
CLR PSW :GO BACK TO KERNEL MODE 
MOV ATIMERR ,a&4 ;RESTORE ADDR. OF NORMAL CPU aa HANDLER TO 4 
MOV #1$,$LPERR ote LOOP ON ERROR POINTER TO 1$ 


JSR PC TON ; TURN T-BIT TRAPPING BACK ON 


J AREER KREKEEKEEKEEKKEKEEEEKEKKKEEEKEKEKKEEKEKEEEKKEKEKKKEE 


SRTEST 40 RTI IN USER MODE DOES NOT CHANGE PSW 
** 
zs THIS TEST CHECKS TO SEE THAT WHEN AN RTI IS EXECUTED IN USER 
;* MODE, THE MODE OR PRIORITY BITS OF THE PSW ARE NOT CHANGED. 
** 
BI III IIIS IIIT IIIT IRR TOTTAT Rte te 
TST40: SCOPE 
1$: MOV #2, SLPERR ;SET LOOP ON ERROR POINTER TC 2$ 
MOV 170000, R2 ‘LOAD “PRESENT & EXPECTED™ PSW VALUE INTO R2 
2$: MOV R2P :GO TO USER MODE-PRIORITY 0 
MOV #340. ~(SP) :PUT A NEW PSW (PRIORITY=7) ON STACK 
MOV #3$,-(SP) :PUT NEW PC ON THE STACK 
RTI :DO AN RTI FROM USER MODE 
3$: MOV SW =READ NEW PSW INTO R1 
BIC #7437 ,R1 :MASK OFF COND. CODE, T-BIT, AND UNUSED BITS 
CLR PSw :GO BACK TO KERNEL MODE 
CMP R2,R1 :DID PSW STAY IN USER, PRIORITY=0? 
BEO 4$ “BRANCH IF YES 
ERROR 60 :PSwW CHANGED BY AN RTI FROM USER 
:FOR A TIGHTER SCOPE LOOP 
:REPLACE ERROR CALL WITH 
:' BR=2$'"' = 000760 
4$: MOV #1$,$LPERR =RESET LOOP ON ERROR POINTER TO 1$ 


SEQ 0066 


C 
AG MACY11 30A(1052) 11=JUN=79 13:21 


MD=-11=CJKDA=B KTF11=AA MMU DI] PAGE 67 
CJKDAB.P11 11=JUN-79 13:10 141 KT ERROR SERVICED BEFORE TIMEOUT ERROR SEQ 0067 
3302 SAREE RRR ERR REE EREEKEERERRERRRRREEEEEEEEEEEREREREREKEE 
3303 CRTEST 41 KT ERROR SERVICED BEFORE TIMEOUT ERROR 
** 
3305 ;* THIS TEST CHECKS TO SEE THAT IF A CERTAIN VIRTUAL ADDRESS THAT 
3306 ;* WOULD CAUSE A MEMORY MANAGEMENT ERROR CAUSES A TIMEOUT 
3307 ;* ERROR FIRST, THE TIMEOUT ERROR IS SERVICED BUT THE MEMORY 
3308 3 MANAGEMENT ERROR ISN'T. THIS MEANS THAT SRO AND SR2 
3309 3% SHOULD NOT REPORT THE ERROR OR LOCK UP ITS VIRTUAL ADDRESS. 
3310 ;* A READ-ONLY VIOLATION IS USED AS THE POTENTIAL MEMORY MANAGEMENT 
33 eee 
** 
3313 SIAC IIIA IIIISISIIISIOIOII DIDI SOOO OSI IOI III IIIT OI IIE 
3314 030504 000004 TST41: SCOPE 
3315 030506 012705 077006 1$: MOV #77006,R5 ;LOAD PDR? DATA INTO R5 
3316 030512 010537 172316 MOV R5 ,KIPDR7 *MAP PAGE 7 R/W PLF=176 
3317 030516 012737 030544 000004 MOV #3$ , 044 ;SET CPU TRAP VECTOR TO ADDRESS OF 3$ 
3318 030524 012737 030546 000250 MOV #4$ ,a4250 ;SET M.M. TRAP VECTOR TO ADDRESS OF 4$ 
3319 030532 012737 030540 001110 MOV #2$,,$LPERR ;SET LOOP ON ERROR POINTER TO 2$ 
3320 030540 005237 177700 2$: INC a#177700 :CAUSE PLF ABORT AND POTENTIAL TIMEOUT 
3321 030544 104043 3$: ERROR 23 ; TRAPPED THRU CPU TRAP VECTOR BUT SHOULDN'T HAVE 
$322 ;FOR TIGHTER SCOPE LOOP 
3323 ; REPLACE ERROR CALL WITH 
3324 : ;' BR 2$°' = 000776 
3325 030546 012706 001100 4$: MOV AMKERSTK,KSP “RESTORE STACK POINTER AFTER TRAPPING 
3326 030552 013737 177572 001272 MOV SRO,WASSRO ;READ STATUS REG.O 
3327 030560 013737 177576 001274 S$: MOV SR2,WASSR2 ;READ STATUS REG. 
3328 030566 012700 040017 MOV #40017,R0 ;LOAD EXPECTED + —* INTO RO 
3329 030572 020037 001272 CMP RO,WASSRO ;SRO PLF ERROR BIT SET? 
3330 030576 001401 BEQ 6$ “BRANCH IF YES 
3331 030600 104044 ERROR 44 :SRO DIDN'T REPORT PLF ERROR 
3332 sFOR TIGHTER SCOPE LOOP 
3333 ; REPLACE ERROR CALL WITH 
3334 2$'' = 000741 
3335 030602 012701 030540 6$: MOV #2$,R1 : LOAD EXPECTED SR2 hgh wt ee R1 
3336 030606 020137 001274 CMP R1,WASSR2 “WAS SR2 LOCKED BY PLF ABORT? 
3337 030612 001401 BEQ 7$ “BRANCH IF YES 
3338 030614 104044 ERROR 44 :SR2 DIDN'T LOCK UP VIRTUAL ADDRESS 
3339 FOR TIGHTER SCOPE LOOP 
3340 ;REPLACE ERROR CALL WITH 
3341 :'BR 2$°* = 000741 
3342 030616 042737 160000 177572 /7$: BIC #160000, SRO = CLEAR ERROR BITS THAT WERE SET IN SRO 
3343 030624 012737 002076 000004 MOV A#TIMERR,a&4 ; RESTORE ADDRESS OF NORMAL CPU TRAP HANDLER 
3344 030632 012737 002150 000250 MOV #iAGMERR , 2250 RESTORE ADDRESS OF NORMAL M.M. TRAP HANDLER 
3345 030640 012737 077406 172316 MOV a7r606 KIPDR7 “REMAP PAGE 7 TO READ/WRITE PLF=177 
eac9 030646 012737 030506 001110 MOV #1$, SLPERR ;RESET LOOP ON ERROR POINTER TO 1$ 
3348 
3349 SI KKEE REE EREKER KKK R EK EKREKEEEREEEEREEREERRKRKKEE 
3304 ; TEST 42 PC & PSW SAVED FOR KT ERROR DURING SERVICE OF TIMEOUT ERROR 
3352 * THIS TEST CHECKS THE PC AND PROCESSOR STATUS WORD SAVED WHEN 
3353 se A KT ERROR OCCURS DURING THE SECOND PUSH ON THE STACK DURING 
3354 ;* SERVICING OF A TIMEOUT ERROR. DURING A ‘DOUBLE E 
3355 ;* SEQUENCE SUCH AS THIS, THE PSW SAVED WILL BE THE ONE PICKED UP 
3356 ;* FROM VECTOR+2 (LOC. 6 IN THIS CASE) AFTER THE FIRST TRAP, 
3357 ;* NOT THE PSW PRESENT BEFORE THE FIRST TRAP. SRO AND SR2 





D 
AG MACY11 30A(1052) 1i=JUN=-79 13:21 


MD-11=CJKDA=B KTF11=AA MMU DI PAGE 68 
10 T42 PC & PSW SAVED FOR KT FRROR DURING SERVICE OF TIMEOUT ERROR 


CJKDAB.P11 11=JUN-79 153: SEQ 0068 


2826 ;* SHOULD RECORD THE KT ERROR (A R/O VIOLATION BY THE USER STACK PTR.) 
**® 
3360 +t NOTE THAT THE PREVIOUS MODE BITS <13:12> OF THE PSW 
$303 :* WILL BE SET IN THE PSW THAT IS SAVED. 
** 
3365 OTIS ITITT IIIT ILI LITT TILT LITT TITT TTT TTT TTT TTT TTT TTT TTTT Tite 
3364 030654 4 TST42: SCOPE 
3365 030656 737 «035114 1$: JSR PC, TOFF ; TURN T-BIT TRAPPING OFF FOR THIS TEST 
3366 030662 012737 000600 177646 MOV #600 ,UIPAR3 :MAP USER PAGE 3 TO 12=-16K 
3367 030670 612737 000600 177650 MOV #600, UIPAR4 :MAP USER PAGE 4 TO 12-16K 
3368 030676 012737 077402 177606 MOV #77402,UIPDR3  :MAP USER PAGE 3 READ-ONLY 
3369 030704 012737 077406 177610 MOV #77406,UIPDR4 ;:MAP USER PAGE 4 READ/WRITE 
3370 030712 012737 030766 000004 MOV ans : LOAD ADDRESS OF 4$ IN CPU (TIMEOUT) VECTOR 
3371 030720 012737 140017 000006 MOV #140017,a#6 :LOAD PSW THAT SHOULD BE PUT ON STACK IN VECTOR+2 
3372 030726 012737 030766 000250 MOV 0250 s LOAD ADDRESS OF 4$ IN M.M. TRAP VECTOR 
3373 030734 012737 340 000252 MOV #340, a#252 [LOAD A KERNEL PSW IN MMVEC+2 
3374 030742 012737 030750 001110 MOV #2$,$LPERR :SET LOOP ON ERROR POINTER TO 2$ 
3375 030750 012737 140000 177776 28: MOV #140000,PSW -GO TO USER MODE 
3376 030756 012706 100002 MOV #100002, USP :SET USER STACK PTR. SO SECOND PUSH IS IN PG. 3 
3377 030762 005737 177700 3$: TST 7700 =CAUSE TIMEOUT ERROR THAT WILL CAUSE 
:R/O ERROR WHEN TRY TO SAVE OLD PC 
3379 030766 016601 000002 4$: MOV 2(KSP) .R1 PUT PSW SAVED ON KERNEL STACK INTO R1 
030772 011603 MOV (KSP) .R3 :PUT PC SAVED ON KERNEL STACK INTO R3 
030774 013737 177572 001272 MOV SRO,WASSRO :READ THE CONTENTS OF M.M. STATUS REG. 0 
031002 013737 177576 001274 MOV SR2,WASSR2 :READ THE CONTENTS OF M.M. STATUS REG. 2 
031010 042737 160000 177572 BIC #160000, SRO :CLEAR THE ERROR BITS IN SRO 
031016 005037 177776 CLR PSW “BE SURE IN KERNEL 
031022 012706 001100 MOV #KERSTK,KSP :RESTORE KERNEL STACK POINTER 
031026 012737 140000 177776 MOV #140000,PSW :GO TO USER MODE 
1034 012706 000700 MOV #USESTK,USP RESTORE USER STACK POINTER 
031040 005037 177776 CLR PSW :GO BACK TO KERNEL MODE 
031044 005037 001176 CLR $TMPO :CLEAR ERROR INDICATOR 
031050 020127 170017 CMP R1,4170017 ; WAS THE PSW SAVED THE ONE PICKED UP BY THE 
TIMEOUT TRAP FROM ERRVEC+2? 
: VALUE 170017 = PSW FROM LOC. 6 WITH 
PREVIOUS MODE BITS = USER 
031054 001402 BEQ 5$ BRANCH IF YES 
031056 005237 001176 INC $TMPO :WRONG PSW SAVED DURING ‘DOUBLE ERROR’ SEQUENCE 
031062 020327 030766 S$: CMP RS. A3$+4 :WAS THE PC AT THE TIME OF THE TIMEOUT ERROR 
:SAVED ON THE STACK? 
1 001402 BEQ :BRANCH IF YES 
031070 005237 001176 INC $TMPO ;WRONG PC SAVED DURING TRAP SEQUENCE 
031074 023727 001272 020147 6$: CMP WASSRO,#20147 ;:DID SRO REPORT = USER, PAGE 3, R/O ABORT? 
031102 001402 BEQ 7$ “BRANCH IF YES 
1104 5237 001176 INC $TMPO :SRO DID NOT REPORT R/O ABORT 
1110 023727 001274 030762 7$: CMP WASSR2, 43% :DID SR2 LOCK UP VIRTUAL ADDR. OF LAST 
: INSTRUCTION SUCCESSFULLY FETCHED? 
031116 001402 BEQ 8$ *BRANCH IF YES 
031120 005237 001176 INC $TMPO : SRe DID NOT LOCK UP ADDR. OF TIMEOUT INST. 
031124 005737 001176 8$: TST $TMPO ERRORS’ DURING TRAP SEQUENCE? 
031130 001401 BEQ 9$ ‘BRANCH IF NO 
031132 104045 ERROR 45 :THE WRONG PC OR PSW WERE SAVED 


:0R SRO OR SR2 DID NOT REPORT R/O 
ERROR DURING TIMEOUT = KT TRAP 

; SEQUENCE 

:FOR TIGHTER SCOPE LOOP 
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9$: MOV ATIMERR ,aa4 
MOV 34 
MOV #MGMERR , 4250 
MOV #77406,UIPDR3 
He #1$,$LPERR 
J 


E 6 
13:21 PAGE 69 
PC & PSW SAVED FOR KT ERROR DURING SERVICE OF TIMEOUT ERROR 


*REPLACE, ERROR CALL WITH 
;' BR 2$'' = 000710 


RESTORE ADDRESS OF NORMAL CPU TRAP HANDLER 
sRELOAD ERRVEC+2 WITH KERNEL PSW 

;RESTORE ADDRESS OF NORMAL M.M. TRAP HANDLER 
sREMAP USER PAGE 3 READ/WRITE 


:RESET LOOP ON ERROR POINTER TO 1$ 
; TURN T-BIT TRAPPING BACK ON 


6 
SEAR REREKKEKEKERKEKEKEEEKEEKREKEKEKEKEREKREKKEEKE 


* te 

* THIS GROUP OF TESTS WILL TEST ALL THE LOGIC ASSOCIATED WITH 
* THE “MOVE FROM PREVIOUS'’ 
* 


SEEKER KKK KEKE KKEKKEKKKEEKEKKEKKE 


AND MOVE TO PREVIOUS'’ INSTRUCTIONS. 


5 RRR KER REE KEKE KKEKKEKEKEKKKKEKEKEEKKEEEKEEKEKKEKEHREKKEEKEKEKKKEEKE 


“*TEST 43 MOVE FROM PREVIOUS (USER) I-SPACE 
** 
:* THIS TEST USES THE "MFPI" INSTRUCTION TO ENSURE THAT THE 
:* PREVIOUS MODE IS CLOCKED CORRECTLY 
- THERE IS A DESCRIPTION BEFORE EACH DESTINATION MODE TESTED. 
*“* 
*"* 
:* IF THE CORRECT MODE (USER) IS NOT ENABLED A NON-RESIDENT ABORT 
:* WILL OCCUR AND TRAP TO 23$, WHERE THE ERRORS ARE REPORTED. 
*“* 
TIO ISISIOI ISIS IOI III IOI I III IIIT TOTO AIR IO 
TST43: SCOPE 
1$: CLR KIPARO :MAP KERNEL PAGE 0 TO 0-4k 
MOV #200, KIPAR1 “MAP KERNEL PAGE 1 TO 4-8K 
MOV #400, KIPAR2 “MAP KERNEL PAGE 2 TO 8-12k 
MOV #600, KIPAR3 *MAP KERNEL PAGE 3 TO 12-16K 
MOV #600. KIPARG “MAP KERNEL PAGE 4 TO 12-16K 
MOV #7600,KIPAR7 | :MAP KERNEL PAGE 7 TO THE I/O PAGE 
MOV #77406,RO :MAKE ALL KERNEL I-SPACE PAGES RESIDENT 
sREAD/WRITE, LENGTH 200 BLOCKS 
MOV #10,R2 :SET LOOP COUNTER TO 8 
MOV #KIPDRO,R1 =PUT ADDRESS OF FIRST PDR IN R1 
2$: MOV RO, (R1)+ : LOAD PDR WITH 77406 
SOB R2 :LOOP TO 2$ UNTIL ALL PDRS LOADED 
MOV #10,R2 SET LOOP COUNTER TO 
MOV #UIPDRO,R1 *PUT ADDRESS OF FIRST PDR IN R1 
3$: MOV RO, (R1)+ “LOAD PDR WITH 77406 
SOB R2.3$ :LOOP TO 3$ UNTIL ALL PDRS LOADED 
MOV #000, UIPARO -MAP USER I PAGE 0 TO 0-4k 
MOV #200, UIPAR1 “MAP USER I PAGE 1 TO 4-8k 
MOV #400, UIPAR2 “MAP USER I PAGE 2 TO 8-12k 
MOV #600, UIPAR3 :MAP USER I PAGE 3 TO 12-16k 
MOV #7600,UIPAR7 | :MAP USER I PAGE 7 TO THE I/O PAGE 
sl MOV #4$,$LPERR :SET LOOP ON ERROR TO 4$ 
MOV #77406,KIPDR4 :KERNEL I-SPACE PAGE 4 READ/WRITE 
MOV #600, KIPARG “MAP KERNEL 1 PAGE 4 TO 12k 
MOV #600, UIPAR “MAP USER I PAGE 4 TO 12k 
MOV #36514 ,R0 “LOAD DATA PATTERN INTO RO 


SEQ 0069 


MD=-11=CJKDA=B KTF11=AA my DIAG MACY11 30A(1052) 
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CJKDAB.P11 


031370 
031574 
031402 


031406 
031414 
031422 


031424 


031444 


031446 
031450 


031452 


031540 


031542 
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012737 
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012737 
012737 


000401 
104050 
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0 
012737 
006537 


001401 


100000 
031776 
1723510 


031414 
030340 


001100 


000700 


031464 


031516 


031550 
030340 
100000 


000250 


001110 
177776 


001110 
177776 


001110 
177776 


S$: 
6$: 


7$: 


8$: 


9$: 


10$: 
11$: 


i2$: 
13$: 


F 
1i=JUN=79 13:21 PAGE 70 
MOVE FROM PREVIOUS (USER) I=SPACE 


MOV RO, 24100000 : LOAD ATA PATTERN INTO PHY 60000 
MOV #23$,,MMVEC :SET M.M. VECTOR TO 2 

KIPDR4 :MAKE KERNEL I-SPACE PAGE 4 NON-RESIDENT 
: THE FOLLOWING WILL TEST DSTM=C MFP] 


hoy #5$,$LPERR :SET LOOP ON ERROR POINTER [0 5$ 
MOV #030340, PSw “MAKE PREVIOUS MODE USER 
MFFI ——-USP :PUT USER STACK POINTER ON KERNEL 


CMP #KERSTK,KSP sWAS SOMETHING PUSHED ON STACK AT 6$ 
BEQ 7$ :BRANCH IF NOTHING WAS PUSHED 
MOV (KSP)+,RO ;POP KERNEL STACK INTO RO 
MOV AUSESTK,R1 sEXPECTING TO GET 700 AS USP 
CMP RO,R1 sDID YOU GET THE RIGHT POINTER? 
BEQ 8$ ;BRANCH IF YOU DID 
ERROR 46 sWRONG THING WAS PUSHED ON STACK 
-FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
:'BR 5$* = 000763 


: BRANCH TO NEXT TRY 
sNOTHING PUSHED ON STACK 
:FOR TIGHTER SCOPE LOOP 
sREPLACE, ERROR CALL WITH 
= 000761 


;THE FOLLOWING WILL TEST DSTM=1 MFPI. 
MOV #9$ ,SLPERR ;SET LOOP ON ERROR POINTER TO 9$ 
MOV #36514, RO ;RELOAD DATA PATTERN IN RO 
MOV #030340,PSw ;MAKE PREVIOUS MODE USER 
MOV #100000 ,R2 ;LOAD VIRTUAL ADDRESS INTO Re 
(R2) :READ FROM PHYSICAL 60000 

MOV (KSP)+,R1 sPOP KERNEL STACK INTO R1 
CMP RO,R1 sWAS DATA FETCHED SAME AS STORED 
BEQ 10$ ;BRANCH IF CORRECT DATA WAS FETCHED 
ERROR 46 ;WRONG DATA WAS FETCHED 

:FOR TIGHTER SCOPE LOOP 

; REPLACE, ERROR CALL WITH 

$'' = 000766 


: THE FOLLOWING WILL TEST DSTM=2 MFPI. 

MOV #11$,$LPERR :SET LOOP ON ERROR POINTER TO 11$ 
MOV #030820, he “MAKE PREVIOUS MODE USER 
MOV #100000, R2 *LOAD VIRTUAL ADDRESS INTO R2 
MFP] (R2)+ =READ FROM PHYSICAL 60000 
MOV (KSP)+,R1 :POP KERNEL STACK INTO R1 
CMP RO,R1 “WAS DATA FETCHED SAME AS STORED 
BEQ 12$ “BRANCH IF CORRECT DATA WAS FETCHED 
ERROR 46 *WRONG DATA WAS FETCHED 

“FOR TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

11$'' = 000766 


;THE FOLLOWING WILL TEST 'DSTM=3 MFPI. 
#13$,$LPERR 


BR 8$ 
ERROR 50 


MOV :SET LOOP ON ERROR POINTER TO 13% 
MOV 1030340, PSw *MAKE PREVIOUS MODE USER 

MFP] #100000 AD FROM PHYSICAL 60000 

MOV (KSP)+.R1 :POP KERNEL STACK INTO R1 

CMP RO.R1 :WAS DATA FETCHED SAME AS STORED 

BEQ 14$ “BRANCH IF CORRECT DATA WAS FETCHED 


SEQ 0070 


MD=11=CJKDA=B KTF11-AA MMU D 
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031570 


031572 


031622 


031624 


031624 


031714 


031716 
031716 


031744 
031750 


031756 


104046 


012737 


104046 


012737 
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00 


9 V3: 


] 
0 


031600 
030340 
100002 


0316352 


001204 


031672 


00 
030340. 


100000 


031724 


000000 
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177776 


001110 
177776 
001202 


001110 
177776 
001202 


30A(1052) 
143 


14$: 
15$: 


16$: 


17$: 


18$: 


19$: 


20$: 


1%: 


1Ti=JUN=79 13:21 Son AGE 71 
MOVE FROM PREVIOUS (USER) I=SPACE 


ERROR 46 :WRONG DATA WAS FETCHED 
-FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
$'' = 000767 
: THE FOLLOWING WILL TEST DSTM=4 MFPI. 
MOV #15$,$LPERR :SET LOOP ON ERROR POINTER TO 15$ 
MOV #1030340, PSw 


“MAKE PREVIOUS MODE USER 
MOV #100002,R2 ;LOAD VIRTUAL ADDRESS INTO R2 
-(R2) 60000 
MOV (KSP)+,R1 


:READ FROM PHYSICAL 

sPOP KERNEL STACK INTO R1 
CMP RO,R1 sWAS DATA FETCHED SAME AS STORED 
BEQ 16$ ;BRANCH IF CORRECT DATA WAS FETCHED 
ERROR 46 ;WRONG DATA WAS FETCHED 

sFOR TIGHTER SCOPE LOOP 

; REPLACE ERROR CALL WITH 

;'BR 15$'' = 000766 


>THE FOLLOWING WILL TEST DSTM=5 MFPI. 


MOV #17$,$LPERR ;SET LOOP ON ERROR POINTER TO 17% 
:MAKE PREVIOUS MODE USER 

sLOAD TEST LOC. VIRT. ADDR INTO LOC. 
*LUAD ADDR. OF $TMP2+2 INTO R2 


= 
~ 
Uv 
— 
~- 


STMP2 
MOV A<$TMP2+2>,R2 


MFP] a-(R2) READ FROM PHYSICAL 60000 

MOV (KSP)+,R1 :POP KERNEL STACK INTO R1 

CMP RO,R1 sWAS DATA FETCHED SAME AS STORED 
BEQ 18$ ;BRANCH IF CORRECT DATA WAS FETCHED 
ERROR 46 sWRONG DATA WAS FETCHED 


:FOR TIGHTER SCOPE LOOP 
;REPLACE, ERROR CALL WITH 
17$"* = 000763 
;THE FOLLOWING WILL TEST DSTM=6 MFPI. 


hoy #19$,$LPERR :SET LOOP ON ERROR POINTER TO 19% 
MOV #030340,PSw =MAKE PREVIOUS MODE USER 


CLR R2 :MAKE REGISTER 2 A ZER 

MFP] 106090 (R2) sREAD FROM PHYSICAL 60000 

MOV (KSP)+,R1 sPOP KERNEL STACK INTO R1 

CMP RO,R1 sWAS DATA FETCHED SAME AS STORED 
BEQ 20$ ;BRANCH IF CORRECT DATA WAS FETCHED 
ERROR 46 ;WRONG DATA WAS FETCHED 


:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
9$'* = 000766 


THE FOLLOWING WILL TEST’ DSTM=7 MEPI. 
ov #21$.$LPERR :SET LOOP ON ERROR POINTER TO 21$ 


MOV #030340,PSW : 
MOV #100000,$TMP2 :LOAD TEST LOC. V.A. INTO $TMP2 
MOV +¥ MP2 Re =LOAD ADDRESS OF $TMP2 INTO R2 


[USE $TMP2 TO FETCH VIRTUAL 
MOV (KSP)+,R1 


: ADDRESS OF 66000 
P KERNEL STACK INTO R1 
CMP RO,R1 te DATA FETCHED SAME AS STORED 
BEQ 22$ *BRANCH IF CORRECT DATA WAS FETCHED 
ERROR 46 “WRONG DATA WAS FETCHED 


SEQ 0071 


MD-711=CJKDA=8 KTF11=AA MMU D 
11=JUN-79 13:1 


CJKDAB.P11 


3619 


031760 
031766 
031774 


031776 


032030 


032032 


032076 


032104 


032132 


032134 
032142 
032146 


013746 
015746 
GO0C002 


000004 


012737 
012737 
012746 
006606 


104050 


012737 
012746 
006606 


] 
4 


602150 
031200 


0C1266 


160000 


001270 
001266 


032656 


030340 
007777 


007777 


030340 
000700 


900250 
001110 


001272 
001274 
177572 


172310 


000250 


177776 


177776 


AG MACY7? 30441052) 
143 


17=JUN=79 


H 6 
13:21 PAGE 


72 


MOVE FROM PREVIOUS (USER) I=SPACE 


sFOR TIGHTER SCOPE LOOP 

; REPLACE ERROR CALL WITH 

;'BR 21$"' = 000762 

:SET M.M. VECTOR TO NORMAL ROUTINE 
:SET LOOF POINTER TO START OF TEST 
;;BRANCH TO NEXT TEST 


;SAVE PC & PS OF TRAP 


;SAVE SRO FOR ERROR TYPEOUT 
SAVE SR2 FOR ERROR TYPEOUT 
;CLEAR ERROR SITS IN SRO AND LEAVE 
;TRIED TO READ NON-RESIDENT PAGE 
;FOR TIGHTER SCOPE LOOP 
age ERROR CALL WITH 
‘'NOP"* = 000240 
‘PUT PC & PS OF TRAP ON STACK 


WHERE THE ERRORS ARE REPORTED. 


sKERNEL I-SPACE PAGE 4 READ/WRITE 
sUSER I=SPACE PAGE 4 READ/WRITE 


sMAP KERNEL I PAGE 4 TO 12k 
;MAP wt I PAGE 4 TO 12K 
M. VECTOR T9 20% 


sMAKE PREVIOUS MODE USER 

sPUSH DATA ON KERNEL STACK 
;LOAD USER STACK POINTER 

sREAD USER STACK POINTER 

sPOP KERNEL STACK INTO R1 

swAS USER STACK POINTER CHANGED 


;USER STACK POINTER a CHANGED 


; REPLACE ERROR CALL WITH 
000764 


22s: MOV #MGMERR , MMVE C 

MOV #i1$,$LPERR 

BR TST44 
23$: MOV (KSP) +, TRAPPC 

MOV (KSP) +, TRAPPS 

MOV SRO, WASSRO 

MOV SR2,WASSR2 

BIC #160000, SRO 

FRROR 51 

MOV TRAPPS , = (KSP) 

MOV TRAPPC ,-(KSP) 

RT] 

SRR KEKE ERR EEK KEKE KEE REE EEE KEKE EE 

: TEST 44 MOVE TO PREVIOUS (USER) I=-SPACE 
- THIS TEST USES THE ‘MTPI* INSTRUCTION TO ENSURE THAT THE 
;* PREVIOUS MODE IS CLOCKED CORRECTLY 
;* THERE !S A DESCRIPTION BEFORE EACH DESTINATION MODE TESTED, 
*"* 
*“* 
;* IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT 
;* WILL OCCUR AND TRAP TO 20S, 
** 
*: > 'MAAAAAAAASAARSAASZALASSLESAEASLSLS ESE SS SE SER CESSES SELLS AASAEALASAALAELLALE & 
TST44: SCOPE 
1$: MOV #77406, KIPDR4 

MOV #77406, UIPDR4 

MOV #600, KIPAR4 

MOV #600 ,UIPAR4 

MOV #20$ ,MMVEC ; SET 

: THE FOLLOWING WILL TEST. RSTM=O MTP] 

2$: ov #030340,PSwW 

MOV #7777,-(KSP) 

MTP] USP 

MFP] USP 

MOV (KSP)+,R1 

CMP #7777 .R1 

BEQ 3$ ;BRANCH IF IT WAS 

ERROR 50 

3FOR TIGHTER SCOPE 
;' BR 2$*' 

3$: MOV #030340,PSwW “MAKE PREVIOUS MODE 


MOV MUSESTK,~(KSP) 
MTP] US? 


USER 
:GET READY TO RESIORE USER S. POINT 
:RESTORE USER STACK POINTER 


SEQ 0077 


I 6 
AG MACY11 30A(1052) li=JUN=79 13:21 PAGE 73 


MD-11=CJKDA“B KTF11=AA MMU DI 
CJKDAB.P11 11=JUN=79 13:10 144 MOVE TO PREVIOUS (USER) I=SPACE SEQ 0073 
032150 4$: sTHIS WILL TEST DSTM = 1 MTP]. 

3639 032150 012737 032166 001110 MOV #5$, $LPERR :SET LOOP ON ERROR POINTER TO 5$ 
3640 032156 012702 100000 MOV #700000,R2 “LOAD VIRTUAL ADDRESS INTO R2 
3641 032162 012700 125252 MOV #725252,R0 :LOAD TEST DATA INTO RO 
3642 032166 010046 S$: MOV RO, =(KSP) -PUSH TEST DATA ON KERNEL STACK 
3643 032170 105037 17231 CLRB = KI PDR4 :MAKE KERNEL I PAGE 4 NON-RESIDENT 
3644 032174 006612 MTP] (R2) “LOAD TEST DATA INTO PHYSICAL 60000 
3645 032176 112737 000006 172310 MOVB #006, KIPDR4 *MAKE KERNEL PAGE 4 RESIDENT 
3646 032204 011201 MOV (R2),P1 :READ FROM ADDRESS 60000 
3647 032206 020001 CMP RO,R1 :SEE IF DATA WAS STORED AT CORRECT PLACE 
3648 032210 001401 BEQ 6$ “BRANCH IF STORE WAS CORRECT 
3649 032212 104047 ERROR 47 : INCORRECT STORE 
3650 “FOR TIGHTER SCOPE L 
3651 REPLACE ERROR CALL WITH 
3655 032214 é$: ; THE FOLLOWING WILL TEST DSTM=2 MTP. 
3655 032214 012737 032240 001110 MOV #8$,$LPERR :SET LOOP ON ERROR POINTER TO 8$ 
3656 032222 012737 030340 177776 MOV #030340,PSw ;MAKE PREVIOUS MODE USER 
3657 032230 012700 125252 MOV #125252,R0 :LOAD TEST DATA INTO RO 
3658 032234 012702 100000 MOV #100000.R2 =LOAD VIRTUAL ADDRESS INTO R2 
3659 032240 010046 8$: MOV RO,-(KSP) =PUSH TEST DATA ON KERNEL STACK 
3660 032242 105037 172310 CLRB  KIPDR4 ;MAKE KERNEL PAGE 4 NON-RESIDENT 
3661 032246 006612 MTP] (R2) “LOAD TEST DATA INTO PHYSICAL 60000 
3662 032250 112737 060006 172310 MOVB #006, KIPDR4 MAKE KERNEL PAGE 4 RESISENT 
3663 032256 013701 100000 MOV a4#100000,R1 :READ FROM ADDRESS 60000 
3664 032262 020001 CMP RO,R1 =SEE IF DATA WAS STORED CORRECTLY 
3665 032264 001401 BEQ 9$ :BRANCH IF STORE WAS CORRECT 
3666 032266 104047 ERROR 47 : INCORRECT STORE 
2667 -FOR TIGHTER SCOPE LOOP 
3668 ;REPLACE ERROR CALL WITH 
3669 -'BR B$'' = 000764 
3670 032270 9$: :THIS WILL TEST DSTM = 3 MTPI. 
3671 032270 012737 032310 001110 MOV #10$,$LPERR :SET LOOP ON ERROR POINTER TO 10$ 
3672 032276 012737 030340 177776 MOV #030340,PSw :MAKE PREVIOUS MODE USER 
3673 032304 012700 052525 MOV #52525,RO :LOAD TES! DATA INTO RO 
3674 032310 010046 10$: MOV RO, -(KSP) ;PUSH TEST DATA ON KERNEL STACK 
3675 032312 105037 172310 CLRB KIPDRS MAKE KERNEL I PAGE 4 NON-RESIDEN 
3676 032316 006637 100000 MTP] #100000 =LOAD TEST DATA INTO PHYSICAL 80000 
3677 032322 112737 000006 172310 MOVB #006 KIPDR4 *MAKE KERNEL PAGE 4 RESIDENT 
3678 032330 013701 100000 MOV a4100000,R1 :READ FROM ADDRESS 60000 
3679 032334 020001 CMP RO,R1 >SEE IF DATA WAS STORED CORRECTLY 
3680 032336 001401 BEQ 11$ :BRANCH IF STORE WAS CORRECT 
3681 032340 104047 ERROR 47 : INCORRECT STORE 
3682 -FOR TIGHTER SCOPE LOOP 
3683 “REPLACE ERROR CALL WITH 
3684 "BR 10$'' = 
3685 032342 11$: :THIS WILL TEST DSTM = 4°MTPI. 
3686 032342 012737 032362 001110 MOV #12$,.$LPERR :SET LOOP ON ERROR POINTER TO 12% 
3687 032350 012737 030340 177776 MOV #030340,PSW =MAKE PREVIOUS MODE USER 
3688 032356 012700 125252 MOV #125252.RO sLOAD TEST DATA INTO RO 
3689 032362 010046 12$: MOV RO. -(kKSP) =PUSH TEST DATA ON KERNEL STACK 
3690 032364 012702 100002 MOV #100002,R2 [LOAD VIRTUAL ADDRESS INTO R2 
3691 032370 105037 172310 CLRB  —KIPDR4 :MAKE KERNEL I PAGE 4 NON-RESIDENT 
3692 032374 006642 MIP]  (R2) :LOAD TEST DATA INTO PHYSICAL 60000 
3693 032376 112737 000006 172310 MOVB #006,KIPDR4 “MAKE KERNEL PAGE 4 RESIDENT 


MD-11=CJKDA=B KTF11=AA MMU DIAG MACY11 — 


CJKDAB.P11 


032414 


032416 
032416 


032552 


032554 
032554 


0 

032574 
032602 
032606 


032632 


11=JUN=79 


013701 
020001 
001407 
104047 


012737 


13:10 
100000 


022450 


100000 
172310 


000006 
100000 


032522 
030340 
652525 


172310 


100000 


100000 
001202 
172310 
000000 
000006 
100000 


001110 
177776 
001202 


172310 


001110 
177776 


172310 


001110 
177776 


001202 


172310 


13$: 


14$: 


15$: 


16$: 


17$: 


18$: 


17=JUN=79 13:21 
MOVE TO PREVIOUS (USER) 


MOV 4100000 ,R1 
ROQ,R1 


BEQ 13$ 
ERROR 47 


J 6 
PAGE 74 


I=SPACE 


sREAD FROM ADDRESS 60000 
+SEE IF DATA WAS STORED CORRECTLY 
ANCH IF STORE WAS CORRECT 
"INCORRECT STORE 
:FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
$** = 000762 


;' BR 
+ THE FOLLOWING WILL TEST DSTM=5 MTPI. 


hoy #14%,$LPERR 
MOV #030340, o 


MOV RO,-(KSP) 


CLRB KIPDR4 
MTPI. a-(R2) 

MOVP #006 ,KIPDR4 
MOV a#100000,R1 
CMP RO,R1 

BEQ 15$ 

ERROR 47 


sTHIS WILL TEST DSTM = 


MOV #16$,$LPERR 
MOV #050540 ,PSwW 
MOV #52525 ,R0 


CLR R2 

MOV sideat 
CLRB KIPDR4 

MTP] 100000(R2) 
MOVB #006 ,.KIPDR4 
MOV a#100000, R1 
CMP RO,R 

BEQ 176 

ERROR 4/7 


:THE FOLLOWING WILL TEST DSTM=7 MTP. 


MOV #18$,$LPERR 
MOV #030340.PSwW 


MOV #100000 .$™MP2 
MOV ASTMP2 ,R2 


#006. KIPDR4 
MOV a4#100000.R1 


C RO,R1 


;SET LOOP ON ERROR POINTER TO 14$ 
:MAKE PREVIOUS MODE USER 
sLOAD TEST DATA INTO RO 
sLOAD ADDR. OF LOC. STMP2+2 INTO R2 
sLOAD VIRT. ADDR. OF TEST LOC. INTO $TMP2 
sPUSH TEST DATA ON KERNEL STACK 
sMAKE KERNEL PAGE 4 NON-RESIDENT 
;LOAD TEST DATA INTO apts Lo 60000 
sMAKE KERNEL PAGE 4 RESIDENT 
sREAD FROM ADDRESS 60000 
sSEE IF DATA WAS STORED CORRECTLY 
sBRANCH IF STORE WAS CORRECT 
s INCORRECT STORE 
sFOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
4$°' = 000764 


6 MIP. 


;SET LOOP ON ERROR POINTER TO 16% 
MAKE SER 


sLOAD TEST DATA_INTO RO 

:MAKE REGISTER 2 ZERO 

:PUSH TEST DATA ON KERNEL STACK 
sMAKE KERNEL I PAGE 4 NON-RESIDENT 
;LOAD TEST DATA INTO oa tkiea” 60000 
sMAKE KERNEL PAGE 4 RESIDEN 

sREAD FROM ADDRESS 60000 

:SEE IF DATA WAS STORED CORRECTLY 

; BRANCH IF ph: WAS CORRECT 


;SET LOOP ON ERROR POINTER TO 18$ 
;MAKE PREVIOUS MODE USER 
;LOAD TEST DATA INTO RO 
sLOAD VIRT. ADDR. OF TEST LOCATION 
: INTO LOCATION $TMP2 
;LOAD ADDRESS OF STMP2 INTO R2 
sPUSH TEST DATA . KERNEL te 
sMAKE KERNEL PAGE 4 NON-RESIDEN 
;LOAD TES? DATA INTO apt $0000 
:MAKE KERNEL PAGE 4 RESIDEN 

READ FROM ADDRESS 60000 

:SEE IF DATA WAS STORED CORRECTLY 


SEQ 0074 


MD-11=CJKDA=B KTF11=-AA 
CJKDAB.P11 


032654 


032656 


032710 


032712 
032716 
032722 


032724 
032726 


032732 
032736 


033020 
033026 


001401 
104047 


012737 
012737 
000423 


012637 


013746 
013746 
000002 


000004 
012700 


012702 
Bisnos 


012702 


012737 
105037 


MMU D 
11=JUN=79 13:1 


032046 
002150 


001266 
001270 
177572 
177576 
160000 


001270 
001266 


077406 
000010 
177600 


032754 


100000 


033422 
177610 


001110 
000250 


001272 
001274 
177572 


000250 


30A(1052) 1i=JUN=79 13:21 

144 MOVE TO PREVIOUS ‘USER) 
BEQ 19$ 
ERROR 4/7 

19$: MOV #1$,$LPERR 
MOV #MGMERR ,MMVEC 
BR TST45 

20$: MOV (KSP) +, TRAPPC 
MOV (KSP) +, TRAPPS 


MOV SRO ,WASSRO 
MOV SR2,WASSR2 
BIC #160000, SRO 


K 6 
PAGE 75 


I=SPACE 


;BRANCH IF STORE WAS CORRECT 


; INCORRECT STORE 


sFOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 
000763 


;‘BR 18$'' = 


:SET LOOP POINTER TO START OF TEST 
;RESTORE M.M. VECTOR TO NORMAL ROUTINE 
; ;BRANCH TO NEXT TEST 


;SAVE PC & PS OF 


TRAP 


;SAVE SRO FOR ERROR TYPEOUT 
;SAVE SR2 FOR ERROR TYPEOUT 
;CLEAR ERROR BITS IN SRO 


; TRIED TO LOAD A N.R. PAGE 4 


;FOR TIGHTER SCOPE LOOP 
gg ai ERROR CALL WITH 
000240 


" NOP"* 


‘PUT PC g PS OF TRAP ON STACK 


sRETURN TO TEST 


RARER RARER ARERR REAERAEERAERERERERKEEEEREKRERERREEKEKKE 


MOVE FROM PREVIOUS (KERNEL) I-SPACE TO USER MODE 
THIS TEST CHECKS THAT IF THE PREVIOUS MODE IS KERNEL THE 
THERE IS A DESCRIPTION BEFORE EACH DESTINATION MODE TESTED. 


IF THE CORRECT MODE IS NOT ENABLED A NON-RESIDENT ABORT 
WHERE THE ERRORS ARE REPORTED. 


RAR REREEREEEAEEEEEEER OTEK 


sMAKE ALL USER I-SPACE PAGES RESIDENT 
sREAD/WRITE, LENGTH 200 BLOCKS 


:SET LOOP COUNTER 


TO 
;LOAD ADDRESS OF FiRST PDR IN R1 
;LOAD PDR WITH 77406 
:LOOP UNTIL 8 USER PDRS LOADED 
:SET LOOP ON ERROR TO 3$ 


FRROR 51 
MOV TRAPPS , = (KSP) 
MOV TRAPPC . =(KSP) 
RT] 
SeTEST 45 
+t 
,* 
zt FETCH IS FROM KERNEL SPACE 
-* 
+t 
;* 
:s WILL OCCUR AND TRAP TO 21$, 
aoe SCOPE 
1$: MOV #77406,RO 
MOV #10.R2 
MOV #UIPDRO,R1 
2$ MOV RO,(R1)+ 
SOB 2. 2$ 
MOV #3$,$LPERR 
3$ MOV #140340,PSW 


MOV #77406 ,K IPDR4 
MOV #600,KIPAR4 


MOV 0,R2 
: THE FOLLOWING WILL TEST’ DSTM=0 MFP 


Mov #21$ ,MMVEC 
CLRB UIPDR4 


:GO TO USER MODE FOR THIS TEST 

KERNEL I-SPACE PAGE ¢ READ/WRITE 
MAP KERNEL I PAGE 4 TO 12K 

“MAP USER I PAGE 4 TO. 12k 


:LOAD DATA PATTERN INTO R 


0 
LOAD DATA PATTERN INTO PHY 60000 
; LOAD ell ne ADDRESS INTO R2 


;SET M.M. VECTOR TO 21$ 
:MAKE USER I-SPACE PAGE 4 NON-RESIDENT 


SEQ 0075 


MD=11=CJKDA=B KTF11=AA —e DIAG MACY11 30A(1052) 
11=JUN=79 0 145 


CJKDAB.P11 


wile ate 
CONAULSW—O 


3819 


fates 


033124 


033126 


033156 


033160 


033210 
033210 
033216 


012737 


000401 
104050 


012737 


012737 
006 


13:1 
140340 
000700 


001100 


033076 


100000 


033134 
140340 
100000 


033166 
140340 
100000 


033216 
140340 


177776 


001110 
177776 


001170 
177776 


001110 
177776 


5$: 


6$: 


8$: 
9$: 


10$: 
11$: 


12$: 
13$: 


L 6 
PAGE 7 


6 
MOVE FROM PREVIOUS (KERNEL) I=SPACE TO USER MODE 


1i=JUN=79 13:21 
MOV #140340,PSw 
MFP] KSP 
CMP MUSESTK,USP 
BEQ 5$ 
MOV (USP) +,RO 
MOV MKERSTK,R1 
CMP RO,R1 
BEQ 6$ 
ERROR 46 


BR 6$ 
ERROR 50 


MOV 

MOV #140340, PSW 
MOV #36514,R0 
MOV #100000 ,R2 
MFP I (R2) 

MOV (USP) +,R1 
CMP RO,R1 

BEQ 8$ 

ERROR 46 


MOV 49% ,SLPERR 
MOV #140340, Pw 
MOV #100000, R2 
MFPI (R2)+ 

MOV (USP) +,R1 
CMP RO,R1 

BEQ 10$ 

ERROR 46 


MOV 
MOV #140340,PSW 
MFPI  a#100000 
MOV (USP) +,R1 
CMP RO.R1 


BEQ 12$ 
ERROR 46 


sMAKE PREVIOUS MODE KERNEL PRESENT USER 
;PUT KERNEL STACK POINTER ON USER STACK 
:WAS SOMETHING PUSHED ON STACK AT 1$ 
;BRANCH IF NOTHING WAS PUSHED 
sPOP USER STACK og t ~y 
:EXPECTING 1100 AS K 
:D D YOU GET THE RIGHT POINTER? 

ANCH IF YOU DID 
“ WRONG THING WAS PUSHED ON STACK 
:FOR TIGHTER SCOPE LOOP 


;REPLACE ERROR CALL WITH 
;'BR 4$"* = 000766 


BRANCH TO N NEXT TRY 

sNOTHING PUSHED ON STACK 

:FOR TIGHTER SCOPE LOOP 

; REPLACE ERROR CALL WITH 
$'* = 000764 


; THE FOLLOWING ty TEST DSTM=1 MFPI. 
7$,$LPERR 7 SET 


LOOP ON ERROR POINTER TO 7$ 
;MAKE PREVIOUS MODE KERNEL PRESENT USER 
sLOAD DATA EXPECTED INTO RO 
LOAD VIRTUAL ADDRESS INTO R2 

sREAD FROM PHYSICAL 60000 
:POP USER STACK INTO R1 
;WAS DATA FETCHED SAME AS STORED 
:BRANCH IF yore) DATA WAS FETCHED 
sWRONG DATA WAS FETCHED 
REP TIGHTER SCOPE LOOP 

;REPLACE ERROR CALL WITH 

7$’ 000764 


;THE FOLLOWING WILL TEST ‘Doe MFPI. 


T LOOP ON ERROR POINTER TO 9$ 
:MAKE PREVIOUS MODE KERNEL PRESENT USER 
sLOAD VIRTUAL ADDRESS INTO R2 
:READ FROM PHYSICAL 60000 
:POP USER STACK INTO R1 

WAS DATA FETCHED SAME AS STORED 
“ BRANCH IF CORRECT DATA WAS FETCHED 
:WRONG DATA WAS FETCHED 
;FOR TIGHTER SCOPE LOOP 
; REPLACE ERROR CALL WITH 

9$°* = 000766 


;THE FOLLOWING WILL TEST  DSTM=3 MFPI. 
#11$,$LPERR 


;SET LOOP ON ERROR POINTER TO 11$ 
;MAKE PREVIOUS MODE KERNEL PRESENT USER 
READ FROM PHYSICAL 60000 
:POP USER STACK INTO R1 
sWAS DATA FETCHED SAME AS STORED 
:BRANCH IF CORRECT DATA WAS FETCHED 
;WRONG DATA WAS FETCHED 
:FOR TIGHTER SCOPE LOOP 
;REPLACE, ERROR CALL WITH 
11$° Fatal 


; THE hee ® WILL TEST DSTM=4 MFP 
MOV 3$,$LP 


ERR 


MOV +4084) pe 


:SET LOOP ON” ERROR POINTER TO 13% 
;MAKE PREVIOUS MODE DERNEL PRESENT USER 


M 6 
MD~11=CJKDA-8 KTF11=AA wy DIAG MACY11 30A(1052) 1i=JUN=79 13:21 PAGE 77 


CJKDAB.P11 —-11=JUN-79 13:10 145 MOVE FROM PREVIOUS (KERNEL) I=SPACE TO USER MODE SEQ 0077 

3862 033224 012702 100002 MOV #100002,R2 :LOAD VIRTUAL ADDRESS INTO R2 
3863 033230 006542 MFP]  =(R2) =READ FROM PHYSICAL 60000 
3864 033232 012601 MOV (USP) +,R1 “POP USER STACK INTO R1 
3865 033234 020001 CMP RO,R1 :WAS DATA FETCHED SAME AS STORED 
3866 033236 001401 BEQ 14$ sBRANCH IF CORRECT DATA WAS FETCHED 
3867 033240 104046 ERROR 46 “WRONG DATA WAS FETCHED 
3868 -FOR TIGHTER SCOPE LOOP 
3869 ; REPLACE ERROR CALL WITH 
3870 $'' = 000766 
3871 033242 14$:  ; THE FOLLOWING WILL TEST’ DSTM=5 MFPI. 
3873 033242 012737 033250 001110 hoy #15$.$LPERR :SET LOOP ON ERROR POINTER TO 15$ 
3874 033250 012737 140340 177776 15%: MOV #140340,PSW “MAKE PREVIOUS MODE KERNEL PRESENT USER 
3875 033256 012737 100000 001202 MOV #100000,$TMP2 :LOAD TEST LOC. VIRT. ADDR INTO LOC. $TMP2 
3876 033264 012702 001204 MOV #<$TMP2+2>,R2  :LOAD ADDRESS OF $TMP2+2 INTO R2 
3877 033270 006552 MFP]  @=(R2) =READ FROM PHYSICAL 50000. 
3878 033272 012601 MOV (USP) +,R1 “POP USER STACK INTO R1 
3879 033274 020001 CMP RO,R1 :WAS DATA FETCHED SAME AS STORED 
3880 033276 001401 BEQ 16$ :BRANCH IF CORRECT DATA FETCHED 
3881 033300 104046 ERROR 46 ;WRONG DATA WAS FETCHED 
3882 “FOR TIGHTER SCOPE LOOP 
3883 ;REPLA CE ERROR CALL WITH 
3884 15$'' = 000763 
3885 033302 16$: THE FOLLOWING WILL TEST DSTM=6 MFPI. 
3887 033302 012737 033310 001110 ov #17$,$LPERR :SET LOOP ON ERROR POINTER TO 17$. 
3888 033310 012737 140340 177776 17$: MOV #140340,PSW :MAKE PREVIOUS MODE KERNEL PRESENT USER 
3889 033316 005002 CLR R2 “MAKE REGISTER 2 A ZERO 
3890 033320 006562 100000 MFP]  100000(R2) =READ FROM PHYSICAL 60000 
3891 033324 012601 MOV (USP)+,R1 “POP USER STACK INTO R1 
3892 033326 020001 CMP RO,R1 :WAS DATA FETCHED SAME AS STORED 
3893 033330 001401 BEOQ 18$ :BRANCH IF CORRECT DATA FETCHED 
3894 033332 104046 ERROR 46 “WRONG DATA WAS FETCHED 
3895 “FOR TIGHTER SCOPE LOOP 
3896 ;REPLACE ERROR CALL WITH 
3897 "BR 17$'' = 000766 
3898 033334 18$:  ; THE FOLLOWING WILL TEST DSTM=7 MFPI. 
3900 033334 012737 033342 001110 ov #19$,$LPERR :SET LOOP ON ERROR POINTER TO 19% 
3901 033342 012737 140340 177776 19%: MOV #140340,PSW =MAKE PREVIOUS MODE KERNEL PRESENT USER 
3902 033350 012737 100000 001202 MOV #100000,$TMP2 :LOAD TEST LOC. VIRT. ADDR. INTO $TMP2 
3903 033356 012702 001202 MOV #STMP2,R2 “LOAD ADDRESS OF $TMP2 INTO R2 
3904 033362 006572 000000 MFP]  a0(R2) =READ FROM PHYSICAL 60000 
3905 033366 012601 MOV (USP) +,R1 “POP USER STACK INTO R1 

033370 020001 CMP RO,R1 :WAS DATA FETCHED SAME AS STORED 
3907 033372 001401 BEQ 20$ “BRANCH IF CORRECT DATA FETCHED 
3908 033374 104046 ERROR 46 “WRONG DATA WAS FETCHED 

“FOR TIGHTER SCOPE LOOP 

3015 REPLACE, ERROR CALL WITH 
3912 033376 012737 002150 000250 20$: mov #MGMERR,MMVEC  :SET M.M. VECTOR TO NORMAL ROUTINE 
3913 033404 012737 000340 177776 MOV #00340,PSW :GO BACK TO KERNEL MODE, PREVIOUS KERNEL 
3914 033412 012737 032726 001110 MOV #1$,$LPERR =SET LOOP POINTER TO START OF TEST 
3915 023420 000423 BR TST46 > ;BRANCH TO NEXT TEXT 


MD-11-CJKDA-8 Filta Bi te MACY11 7 


CJKDAB.P11 


033522 


033524 
033526 


033530 
0 


033556 


033560 
033564 
033566 


11=JUN- 


0126357 


013746 
013746 
000002 


000004 
012737 
106506 


022706 


012746 
106606 


012746 
106606 
0127357 


13:1 


160000 


001270 
001266 


030340 


001190 


000700 


033536 
007777 


007777 


000700 
033472 


001272 
001274 
177572 


177776 


001110 


001110 


3$: MOV 
4$: 


21$: MOV 


MOV 
MOV 
RTI 


N 6 
1i=JUN=79 13:21 PAGE 78 
MOVE FROM PREVIOUS (KERNEL) I=SPACE TO USER MODE 


(KSP)+,TRAPPC  ;SAVE PC & PS OF TRAP 
(KSP) +. TRAPPS 
SRO,WASSRO :SAVE SRO FOR ERROR TYPEOUT 
SR2.WASSR2 
#160000, SRO N SRO 
51 D TO READ NON-RESIDENT PAGE 
“FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 

'NOP"’ = 000240 


‘PUT PC & PS OF TRAP ON STACK 
sRETURN TO TEST 


TRAPPS , = (KSP) 
TRAPPC , =(KSP) 


CREEK KEEKEKEKEKKKKEKEKKEEKEKKEEKEEKEEKKEKEEKKKEEKKEEKEKE 


:STEST 46 


_ SCOPE 


BR 
2$: ERROR 


5$: MOV 
MTPD 
MOV 


MOVE FROM/TO D-SPACE = MOVE FROM/TO I-SPACE 


THIS TEST CHECKS THAT SINCE THERE IS NO ag hee oD ae 
BETWEEN INSTRUCTION AND DATA SPACE IN THE FONZ~-11 
MFPD & MTPD SHOULD BE DECODED THE SAME AS MFPI & MTPI. 


SEER KKEKKEKEKKEEKKEKKEEKEEKKKEEKEEKEEEKAEEEEKEKEKEKEKKEKKKEKKEKEKEEREKK 


#030340 ,PSw sMAKE PREVIOUS MODE=USER, ‘tt a 

USP ;MFPD SHOULD ACT LIKE MFPI PUTTING 
sUSER STACK POINTER ON THE KERNEL STACK 

~ meee sWAS “prs PUSHED ON KERNEL STACK? 

(KSP)+,RO ;POP KERNEL STACK INTO RO 

MUSESTK,R1 ;EXPECTING TO GET 700 AS USP 

RO,R1 :DID GET RIGHT POINTER VALUE? 

$ :BRANCH IF YES 


53 sWRONG THING WAS PUSHED ON STACK 
:FOR TIGHTER SCOPE LOOP 
;REPLACE ERROR CALL WITH 
;' BR = 000765 


1$"° 
3$ ; BRANCH TO NEXT TRY 
54 ey te or PUSHED ON STACK 
;FOR TIGHTER SCOPE LOOP 


;REPLACE ERROR CALL WITH 
;‘BR 1$°* = 000761 


SET LOOP ON ERROR POINTER TO 4$ 
;PUSH DATA ON KERNEL STACK 

sLOAD THE USER STACK POINTER 

USP : READ ao STACK POINTER 


#4$,$LPERR 
7777 -(KSP) 


(KSP)+,R1 KERNEL STACK INTO R1 

47777 ,R1 sWAS USER STACK POINTER CHANGED? 

5$ ;BRANCH IF YES 

54 sUSER STACK POINTER NOT CHANGED 
;FOR TIGHTER SCOPE LOOP 


;REPLACE ERROR CALL WITH 
:‘BR 4$°* = 000767 


GET READY TO RESTORE ie ts STK. PTR, 
;RESTORE USER STACK POINTER 
;SET LOOP POINTER TO START OF TEST 


as 
#1$,$LPERR 


CC AERA EERE EERE REESE 


SEQ 0078 


MD=11=CJKDA=B KTF11=AA MMU D 
11=JUN=79 13:1 


CJKDAB.P11 


033574 
033576 
3602 


000004 
005037 
012700 
010006 
006506 


011601 
020001 


001401 
104046 


013746 
012737 
005337 
012637 


000004 
005037 
005037 
005237 
042737 


] 
0 


177776 
001100 


001100 


000004 
0 


000004 


001102 
001212 


001234 
100000 | 


000004 


001234 


AG MACY11 30A(1052) 
147 


mics 


wore s a2 2 8 8 


med mf Be Be Be Be Be Be 


2$: 


TIMOFF : 


1$: 


B 7 
1i=JUN-79 13:21 PAGE 79 
MOVE FROM PREVIOUS I=SPACE (PREVIOUS=CURRENT=KERNEL ) 


sSTEST 47 


MOVE FROM PREVIOUS I=SPACE (PREVIOUS=CURRENT=KERNEL ) 
THIS TEST CHECKS Te SOLA BOTH PREVIOUS AND CURRENT MODES 


ARE KERNEL, 


AND THE SOURCE MOD 
STACK IS NOT DECREMENTED BEFORE ACCESS. 


"MFPI KSP'' SHOULD PUSH THE , at iat ee 


E IS 0, THE DESTINATION 


OF KSP (1100) ONTO THE STACK (AT LOC 


SCOPE 


MOV 
MOV 
DEC 
MOV 


@APSW 
ASTACK,RO 


RO,KSP 
KSP 


? 


2$ 
46 


ASTACK ,KSP 


@AERRVEC ,~ (SP) 
#1$,Q#ERRVEC 
a4164 


64000 
(SP) +, @#ERRVEC 
-SBTTL END OF PASS ROUTINE 


FREAK EEEKEKEEEEEEEEEEEEEEEKRREEEEEREEEEEREEEKEEREEE 


Naat 


CURRENT = 


SEEKER KKEEKKEKEEKEKKKEKEEKEKREEEEKEERKKEEEKEKEEEAKREEEEREEEKEKREEKEEEKKKKKEK 


;SET PREVIOUS = KERNEL 


sSETUP VALUE FOR STACK POINTER 


sLOAD STACK POINTER 
cae VALUE *’STACK*' SEMTED BE PUSHED 


® STACK POINTER PUSHED? 
:BRANCH IF YES 
;MFPI FETCHED WRONG DATA 


sFOR TI 


GHTER SCOPE LOOP 


; REPLACE ERROR CALL WITH 
;'BR 1$°* = 000766 


; SETUP EXPECTED STACK POINTER VALUE 
:WAS THE STACK POINTER DECREMENTED? 
;BRANCH IF YES 


STACK NOT PUSHED BY THE MFP! 
FOR TIGHTER SCOPE LOOP 
REPLACE ERROR _CALL WITH 


“RESTORE STACK POINTER 


sSAVE CONTENTS OF LOC 4 
sSETUP IN CASE OF TIMEOUT 

; TURN OFF TIMER ON MULTI-TESTER 
;RESTORE CONTENTS OF LOC 4 


: + INCREMENT THE PASS NUMBER ($PASS) 


s*TYPE "END OF PASS #XXXX 


; TOTA 


; *WHERE XXXX AND YYYY ARE DECIMAL NUMBERS 


:*IF THERE ISN'T 


SEOP: 


JUMP TO LOOP 


STSTNM 
$STIMES 


$PASS 
#100000, $PASS 


;:ZERO THE TEST 


L NUMBER OF ERRORS SINCE LAST REPORT yyyy'’ 


NUMBER 
+2 ZERO THE NUMBER OF ITERATIONS 
: INCREMENT THE PASS NUMBER 


::DON'T ALLOW A NEG. 


NUMBER 


SEQ 0079 


MD-11=CJKDA=B KTF11=AA MMU D 
11=JUN=79 1 


CJKDAB.P11 


033742 


033744 
033744 


033750 


005327 
000001 


000 
033744 
013746 


030060 
034032 
013746 


I 
13:10 


033726 


047105 
051525 


001234 


033760 
047524 


030040 
001112 


001223 
000042 


034062 


000042 


000020 
010000 
034144 


000020 
034140 


020104 
021440 


040524 


145022 


AG MACY11 ee 


. 7 
PAGE 8&0 


Ti=JUN=79 13:21 
F PASS ROUTINE 
DEC (PC) + ;;LOOP? 
SEOPCT: .WORD 1 
BGT SDOAGN ssVES 
MOV (PC)+,a(PC)+ ;zRESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
YPE ,65$ 33 TYPE ASCIZ STRING 
64$ 3:GET OVER THE ASCIZ 
65$: ASCIZ <12><15>/END PASS #/ 
~EVEN 
64$: 
MOV $PASS ,- (SP) 7: SAVE SPASS FOR TYPEOUT 
+3 TYP E PASS NUMBER 
TYPDS ;GO TYPE=-DECIMAL ASCIZ WITH SIGN 
TYPE ,67$ s3T YPE ASCII STRING 
66$ ET OVER THE ASCIZ 
67$: ASCIZ / 3 TOTAL ERRORS SINCE LAST START AT 200 / 
EVEN 
66$: 
MOV SERTTL,~(SP) 7z SAVE SERTTL FOR TYPEOUT 
32 TOTAL NUMBER OF ERRORS 
TYPDS 32GO TYPE=-DECIMAL ASCII WITH SIGN 
TYPE $CRLF ie CARRIAGE RETURN, LINE FEED 
$GET42: MOV 42,R0 ;GET MONITOR ADDRESS 
BEQ SDOAGN : : BRANCH IF NO MONITOR 
CLR - (SP) ; 7 INSURE THE ‘'T’* BIT + = 
MOV #$CLR.T,-(SP) ;SETUP FOR AN RTI OR R 
BR $SRTRN ::60 DO AN RTI OR RIT 10 "LOND THE PSW 
aria. t 7zWITH A CLEARED °'T’’ BIT 
MOV a42,R0 32 INSURE ie CONTAINS THE MONITORS 
BEQ $DOAGN 7 RETURN ADDRESS 
RESET 3;CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 3:GO TO MONITOR 
NOP 3: SAVE ROOM 
NOP 73FOR 
NOP 3 zACT11 
SDOAGN: 
TRAP ;sPUSH OLD PSW AND PC ON STACK 
BIC #20, (SP) 3;CLEAR THE ‘‘T’’ BIT 
BIT #BIT12,aSWR + ¢RUN WITH TRACE TRAP? 
BNE ;BR IF NO 
COM $TBIT 3338 IT TIME FOR TRACE TRAP 
BM] 1$ ss IF NO 
BIS #20, (SP) 23 SET TRACE TRAP 
1$: MOV #$LOOP,-(SP) >: JUMP TO START OF TEST 
S$RTRN: RT] : :RETURN=-THIS IS CHANGED TO 


SEQ 0080 


MD-11=CJKDA=8 KTF11=AA MMU D 
11=JUN=79 13:1 


CJKDAB.P11 


RRARARARRS 
ee cee ee ee ee eel ed 

—) od oD wd ed od =) — 
OOONAU SWI 


000137 
020472 
CO0000 


377 
034152 


104410 
032777 
001114 
000416 


013746 


I 
0 


377 


040000 


000004 


000004 


000004 


000400 
144702 
001103 
001115 
001000 
001110 


001103 
001212 


004000 
001234 


000 


144756 


000004 


144710 
001102 


001103 


144652 
001106 


144620 


AG MACY11 30A(1052) 


11=JUN=79 


13:21 


END OF PASS ROUTINE 


a(PC)+ 
RESTRT 


0 
=-1,°1.,0 


EVEN 
~SBTTL SCOPE HANDLER ROUTINE 


CREAR EKEEREEEKEEKEKEEEEEREKEEEEEREEKEEKREE 


“RTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. 


D 7 
PAGE 8' 


sAN ‘RTT’ IF ‘RTT IS A LEGAL 
‘INSTRUCTION 


7 ;RETURN 


:;''T'' BIT STATE INDICATOR 
ssNULL CHARACTER STRING 


IT WILL INCREMENT 


;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


> *SW14 


BNE 
Ss ARRRASTART 


SXTSTR: 


5$: 


2$: 


7$: 
4$: 


3$: 


BR 


LOOP ON TEST 


INHIBIT ITERATIONS 


LOOP ON ERROR 


LOOP ON TEST IN SWR<7:0> 
3; SCOPE=IOT 


#B1T14,aSWR 
SOVER 


V 
OF ee FOR THE XOR 


AAERRVEC ,-(SP) 
#5$, AAERRVEC 
a4177060 


(SP) + ,a#ERRVEC 
$SSVLAD 


S 
(SP) +, (SP) + 
em  @MERRVEC 


LOOP 
CODE FOR THE XOR TESTERAMMA 
8, aSWR 


#B1T0 

2$ 
@SWR,STSTNM 
SOVER 

SERFLG 

3$ 
SERMAX , SERFLG 
? whiaihaceaeas 
SLPERR,$LPADR 
SOVER 


SERFLG 
$TIMES 


1$ 
#B1T11,aSwWR 
1$ 

$PASS 


sTEST FOR CHANGE IN SOFT=SWR 
: SLOOP ON PRESENT TEST? 
sYES IF SW14=1 
TESTERAAMAA 
so 1F RUNNING ON THE °XOR'' aah te CHANGE 
:THIS INSTRUCTION TO A ‘ NOP=240) 
:7SAVE THE CONTENTS OF THE ERROR VECTOR 
+eSET FOR TIMEOUT 


:TIME OUT ON XOR? 
;ZRESTORE THE ERROR VECTOR 
::GO TO THE NEXT TEST 
;sCLEAR THE STACK AFTER A TIME OUT 
+ ¢RESTORE THE ERROR VECTOR 

ON Lins PRESENT TEST 


+: LOOP ON SPEC. TEST? 
NO 


;BR IF 

ON THE RIGHT TEST? 

3;;BR IF YES 

TBR IF-ND OCCURRED? 
- ERRORS FOR THIS TEST OCCURRED? 


SWR<7:0> 


SISET LOOP ADDRESS TO LAST SCOPE 


:-ZERO a ERROR FLAG 

;sCLEAR THE NUMBER OF ITERATIONS TO MAKE 
;sESCAPE TO THE NEXT TEST 

Py OM a cic 


S 
:s1F FIRST PASS OF PROGRAM 


SEQ 0081 


MD=11=CJKDA=B KTF11-AA_MMU D 
11=JUN=79 13:1 


CJKDAB.P11 


0000 
000200 


122737 
001007 


] 
0 


001102 
001106 


034670 
001225 


000001 


001104 


001104 
001212 


001232 


001262 


14.4434 
144424 


001246 


AG MACY11 g veh et 


1$: 


SSVLAD: 


SOVER: 


RT 
SMXCNT: 200 


11=JUN-79 


13:21 


E HANDLER ROUTINE 


1$ 

$ICNT 
$STIMES,SICNT 
SOVER 


#1 ,$1CNT 

SMXCNT ,STIMES 
STSTNM 
STSTNM,STESTN 
(SP) , SLPADR 
(SP) ,SLPERR 
$SESCAPE 

#1, SERMAX 

UF ay ae 
$LPADR, (SP) 


.SBTTL ERROR HANDLER ROUTINE 


IOI IIDIIIUIDISIIIUIIIOIUIDISIIIOIIOIIOIUIIIIOIUIIIIUIIIIUIUIDIIOIUIOI TOOT Ri tt tt 
SRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
> *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERRTYP ON ERROR 


SERROR: 


7$: 


1$: 


20$: 


gE Ff 
PAGE 82 


; INHIBIT ITERATIONS 

" INCREMENT ITERATION COUNT 
$3 CHECK THE NUMBER OF ITERATIONS MADE 

IF MORE ITERATION REQUIRED 

;;REINITIALIZE THE ITERATION COUNTER 
eeSET NUMBER OF ITERATIONS TO DO 

: COUNT TEST NUMBERS 
:7SET TEST NUMBER IN APT MAILBOX 
;sSAVE SCOPE LOOP ADDRESS 


DRESS 
>CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(1) ERROR ON NEXT TES? 
: [DISPLAY TEST NUMBER 
SPINES a. ADDRESS 


= :MAX. NUMBER OF ITERATIONS 


:*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
5 HALT ON ER 


L ROR 
INHIBIT eee TYPEOUTS 


BELL ON ERR 
LOOP ON ERROR 


N : sERROR= 


R5,$REG5 
$TSTNM, TESTNO 
eis 
$TSTNM,@DISPLAY 
+ ila cma 

, SBELL 

SERTTL 
(SP) , SERRPC 
4B1T13,aSWR 


20$ 
PC, ,ERRTYP 
- SC&LF 


#APTENV, SENV 
2$ 


EMT AND N=ERROR ITEM NUMBER 


:zTEST FOR CHANGE IN SOFT=SwR 
AVE THE CONTENTS OF RO 


sSAVE THE CONTENTS OF R1 
sSAVE THE CONTENTS OF R2 
sSAVE THE CONTENTS OF R35 
; E CONTENTS OF R4 
sSAVE THE CONTENTS OF R5 
eet THE TEST NUMBER 
:SET THE ERROR FLAG 
:DON'T LET THE FLAG GO TO ZERO 
: DISPLAY TEST NUMBER AND ERROR FLAG 
;;BELL ON ERROR? 
:sNO - SKIP 
; 7RING BELL 
: COUNT THE NUMBER OF ERRORS 
::GET ADDRESS OF ERROR INSTRUCTION 


eSTRIP AND SAVE THE ERROR ITEM CODE 
sSKIP TYPEOUT IF SET 

::SKIP TYPEOUTS 

:2GO TO USER ERROR ROUTINE 


; RUNNING IN APT MODE 
33NO,SKIP APT ERROR REPORT 


SEQ 0082 


MD-11=CJKDA=B KTF11=AA 


CJKDAB. 


P11 


11=JUN=79 1 


113737 
004737 


001402 
013716 


022737 
001001 
000000 


000002 


104401 
6 


013746 
104402 
000471 


001000 


001110 
001214 


001214 


144 304 


034072 000042 


001223 


001114 


001116 


AG MACY11 30A(1052) 


F 7 
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ERROR HANDLER ROUTINE 


21$: 


22$: 
2$: 


3$: 


4$: 


S$: 


6$: 
. SBTTL 


MOVB S$ITEMB,21$ ;;SET ITEM NUMBER AS ERROR NUMBER 
JSR PC, SATY4 ;¢REPORT FATAL ERROR TO APT 

BYTE Q 

BYTE 0Q 

BR 22$ ;;APT ERROR LOOP 

TST aSWR ;sHALT ON ERROR 

BPL 3$ 7eSKIP IF CONTINUE 

HALT ;sHALT ON ERROR! 

CKSWR :sTEST FOR CHANGE IN SOFT=SwWR 

BIT 4B1T09,aSWR ¢ «LOOP ON ERROR SWITCH SET? 

BEQ 4$ IF NO 

MOV $LPERR, (SP) :;FUDGE RETURN FOR LOOPING 

TST $SESCAPE ;sCHECK FOR AN ESCAPE ADDRESS 

BEQ 5$ ;;BR IF NONE 

MOV SESCAPE , (SP) :sFUDGE RETURN ADDRESS FOR ESCAPE 
CMP #SENDAD , a#42 ;sACT=-11 AUTO-ACCEPT? 

BNE 6$ ; sBRANCH IF NO 

HAT 33 VES 


RT] 7 ;RETURN 
ERROR MESSAGE TYPEOUT ROUTINE 


SEAR KEE KEKE 


“THIS ROUTINE USES THE “‘ITEM CONTROL BYTE’’ ($I TEMB> TO DETERMINE WHICH 


>*ERROR IS TO BE REPORTED. 


IT THEN OBTAINS, FROM THE ‘ERROR TABLE’’ ($ERRTB), 


5oN@ REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERRCR. 


ERRTYP: 


1$: 


:#NOTES: 


THIS ROUTINE PROVIDES AN AUTOMATIC ‘'CARRIAGE RETURN=LINE FEED** 
FOR ‘EM’, "DH'', AND ‘DT’ 


TWO SPACES ARE TYPED AFTER EACH NUMBER FOR ‘DT’ 
FOR S$ITEMB=0, JUST THE ERROR PC IS TYPED 


THE AVAILABLE FORMATS FOR TYPING DATA ARE: 
DF FORMAT 


0 TYPE A 6 DIGIT OCTAL NUMBER (FROM 16-BIT BINARY) 
1 TYPE A DECIMAL NUMBER WITHOUT LEADING ZEROS 

2 TYPE A 16 DIGIT BINARY NUMBER 

3 TYPE A 6 DIGIT OCTAL NUMBER (FROM 18-BIT BINARY) 


TYPE . $CRLF ;'"CARRIAGE RETURN'’ & “LINE FEED*’ 


MOV RO,-(SP) SAVE RO 
CLR RO sPICKUP THE ITEM INDEX 
BISB @4$1 TEMR ,RO 
E 1$ sIF ITEM NUMBER IS ZERO, JUST 
; TYPE THE PC OF THE ERROR 
MOV SERRPC ,-(SP) +3 SAVE SERRPC FOR TYPEOUT 
sERROR ADDRESS 
TYPOC : 260 TYPE=-OCTAL ASCII(ALL DIGITS) 
13$ GET OUT 
DEC RO :ADJUST THE INDEX SO THAT IT wILL 
a a ; WORK FOR THE ERROR TABLE 
L 


SEQ 0083 


G 7 
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MD=11=CJKDA=B KTF11=AA MMU DIAG MACY11 30A(1052) 1i=JUN“-79 13:21 
CuKDAB.P11 11=JUN=79 13:10 ERROR MESSAGE TYPEQUT ROUTINE SEQ 0084 
4254 034726 2709 001316 ADD ASERRTB,RO sFORM TABLE POINTER 
4255 034732 012037 034742 MOV (RO) +,2$ sPICKUP ‘ERROR MESSAGE’* POINTER 
4256 034736 14 BEQ 3$ sSKIP TYPEOUT IF NO POINTER 
4257 034740 104401 TYPE ‘TYPE THE ‘ERROR MESSAGE’' 
4258 034742 2$: . WORD ;‘ ERROR MESSAGE'' POINTER et HERE 
4259 034744 104401 001223 TYPE , SCRLF "CARRIAGE RETURN’ & "LINE FEED*' 
4260 034750 012037 034760 5$: MOV (RO) +,4$ sPICKUP ‘DATA HEADER'’ POINTER 
4261 034754 001404 BEQ :SKIP TYPEOUT IF 0 
4262 034756 104401 TYPE ;TYPE THE ‘DATA HEADER"' 
4265 034760 000000 4$: . WORD SARA HEADER’ POINTER GOES HERE 
4264 034762 104401 001223 TYPE , $CRLF ee ae RETURN'’ & ‘LINE FEED*’ 
4265 034766 010146 5$: MOV R1,~-(SP) AVE R1 
4266 034770 012001 MOV (RO)+,R1 "PICKUP ‘DATA TABLE‘ POINTER 
4267 034772 001441 BEQ 12$. :BR IF NO DATA TO BE TYPED 
4268 034774 O12 MOV (RO) +,RO sPICKUP *DATA FORMAT’’ POINTER 
4269 034776 105710 6$: TS°3 (RO) :I1S IT FORMAT 0? 
cSey 035 001003 BNE 7$ ;BR IF NO 
4272 s*THIS CODE IS FOR OCTAL (16-BIT) FORMAT (DF=0) 
42735 035002 013146 MOV @(R1)+,-(SP) :zSAVE a(R1)+ FOR TYPEOUT 
4274 035004 104402 TYPOC :2GO TYPE=-OCTAL ASCIIC(ALL DIGITS) 
rh 035006 000425 BR 11$ 
4277 s*THIS CODE IS FOR DECIMAL FORMAT (DF=1) 
4278 035010 121027 000001 7$: CMPB (RO) 41 :iS IT FORMAT 1? 
4279 035014 001003 BNE 8$ sBRANCH IF NO 
4280 035016 013146 MOV @(R1)+,=(SP) :;SAVE a(R1)+ FOR TYPEOUT 
4281 035020 104405 TYPDS 3200 TYPE=-DECi:MAL ASCII WITH SIGN 
esas 035022 000417 
4284 >*THIS CODE IS FOR wh FORMAT (DF=2) 
4285 055024 121027 000002 6$: CMPB (RO) A :1S IT FORMAT 2? 
4286 035030 001003 BNE 9$ :BRANCH IF NO 
4287 035032 013146 MOV a@(R1)+,-(SP) :? SAVE @(R1)+ FOR TYPEOUT 
4288 035034 104406 T YPBN :GO TYPE--BINARY ASCII 
ose 035036 000411 BR 11$ 
429) :*THIS CODE IS FOR OCTAL eee: FORMAT (DF=3) 
4292 035040 012146 O$: MOV (R1)}+,-(SP) sPUT ADDRESS OF FIRST LOC. ON STACK 
4293 035042 004737 040304 JSR °C , $0820 sCONVERT TWO LOCS. TO AN ASCII STRING 
4294 035046 062716 000005 ADD #5, (SP) :ONLY NEED 4 CHARACTERS NOT 11 
4295 035052 012637 035060 MOV (SP)+,10$ sPUT ADDRESS OF ASCII CHARS. AT 10$ 
4296 035056 104401 TYPE ;TYPE OCTAL VALUE OF 18-BIT BINARY NO. 
py 344 035 000000 10$: -WORD QO 
4299 035062 005711 11$: TST (R1) -IS a ANOTHER NUMBER? 
4300 035064 001404 BEQ 12$ :BR IF NG 
4301 035066 104401 035110 TYPE , 14% sTYPE TWO(2) SPACES 
4302 035072 105720 TSTB (RO) + :POINT TO NEW ‘DATA FORMAT’ 
ry 035074 740 BR 6 ; LOOP 
4305 035076 012601 12$: MOV (SP)+,R1 SRESTORE R1 
43506 035100 012600 13$: MOV (SP)+,RO RESTORE RC 
4307 035102 104401 001223 TYPE ,$CRLF ;’‘CARRIAGE RETURN’ & “LINE FEED*' 
45308 035106 000207 RTS PC ;RE TURN 
309 035110 020040 000 14$: ASMCIZ / # ;TWO(2) SPACES 





H 7 
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MD=11=CJKDA=B KTF11=AA MMU 0] 
CJKDAB.P11 11=JUN=79 13:10 ERROR MESSAGE TYPEOUT ROUTINE SEG 0085 
4310 045114 EVEN 


4311 


MD<-17=CJKD4A=B KTF11=AA 
CJKDAB.P11 


035114 


035130 
035134 
035140 


035144 
035146 


035150 


035202 
055206 


033727 


011637 
042716 
012746 


000006 
000207 


033727 


000006 
000207 


OOooooo0ooO 


MMU D; 
11=JUN-79 13:1 


177776 000020 


177776 
001276 


00002C 
035146 


001276 
001276 


000340 
035200 


177777 


000020 


001276 


30A(1052) 


I 7 
1i=JUN=79 13:21 PAGE 86 
SUBROUTINES USED BY THIS PROGRAM 


xgeeee ReKKE 


Sl gamertag lia mn eine ion it a 


.SBITL ****® = SUBROUTINES USED BY THIS PROGRAM «xxx 

.SBTTL TURN OFF T=B!T AND SAVE CURRENT PSW 

FL ERA RR RARE RARER RARER REE EEK 

*t 

:* THIS SUBROUTINE IS USED TO TURN OFF THE TRACE TRAP BIT IN THE PSW 

:* IF IT IS ON. THE PROCESSOR STATUS IS SAVED IN ‘'TBITPS'’ SO THAT 

:* THE PSW CAN BE RESTORED TO ITS PREVIOUS CONDITION WHEN CONDITIONS 

:* WARRANT T=BIT TRAPPING. 

& 

tOFF: BIT PSW.ATBIT ;1S THE T-BIT SET IN THE PSw? 
BEQ 1$ :EXIT IF NO 
MOV PSwW,-(SP) PUSH PRESENT PSW ON THE STACK 
MOV (SP), TBITPS :ALSO SAVE IT_IN ‘‘TBITPS'’ FOR — 


sRESTORING LATER 
BIC ATBIT, (SP) sCLEAR THE T-BIT (BIT 4) IN THE PSW 
MOV #1$,-<SP) :PUSH PC OF ‘RTS'' ON STACK 
RTT :‘RETURN'’ TO 1$ WITH T-BIT OFF 
1$: RTS PC sRETURN TO PROGRAM 


~SBTTL TURN ON T=BIT AND RESTORE PREVIOUS PSW 


EERE RAKE EEEKERKEEEKKEKKKKE 


a! 
™ THIS SUBROUTINE IS USED TO RESTORE THE PROCESSOR STATUS TO ITS 
* PREVIOUS CONDITION BY RESTORING THE ‘'T-BIT PSwW'' SAVED BY THE 

* ‘"TOFF’’ SUBROUTINE IN THE ‘‘TBITPS'* LOCATION. 

* 


ON: BIT TBITPS ,ATBIT ;WAS T-BIT ON IN THE PREVIOUS PSW? 
BEQ 1$ :EXIT IF NO 
MOV TBITPS,-(SP) sPUSH PREVIOUS PSW ON THE STACK 
MOV #340, TBITPS sRESET THE *‘TBITPS** LOCATION 
MOV #1$,-(SP) ;PUSH PC OF *RTS*' ON STACK 
RTT ;‘ RETURN’ TO 1$ WITH T-BIT RESTORED 
1$: RTS PC sRETURN TO PROGRAM 


- SBTTL SET ALL WRITEABLE BITS IN ALL PAR/PDR'S 


REECE REE EKREKEEREREKEEEEEKEKKEKKEEE 


THIS SUBROUTINE IS USED BY THE PAR/PDR DUAL ADDRESSING TEST 
TO SET ALL WRITEABLE BITS IN ALL KERNEL AND USE PAR'S AND 
PDR*S TO A 1. THE ‘“INITIAL STATE*’ OF HAVING ALL BITS=1 IS 
USED TO SEE THAT ONLY ONE REGISTER IS CLEARED IN RESPONSE TO 
A SINGLE PAR OR PDR ADDRESS. 


“hehe ee ee eee eR RRR RRR RRR RRR RRSERSERE SEE LESESSL ELS SESE SESS ESE SLE SS 


Se Be Be Be 
> @eee Be BS BM 


SETREG: MOV #10,R2 ;LOAD LOOP COUNTER WITH AN 8 
MOV #KIPDRO,R1 :LOAD ADDRESS OF FIRST PDR gnre R1 
1$: MOV #-1,(R1)+ :SET BITS IN KERNEL PDR TO 1 


;LOAD LOOP COUNTER WITH AN 
;LOAD ADDRESS OF FIRST PAR INTO R1 
;SET BITS IN A KERNEL PAR TO 1 


MOV #KIPARO, Ri 
2$: MOV #-1,(R1)+4 
SOB R2,2$ 


:LOOP TO 1$ UNTIL ALL cy PDR*S LOADED 


0 
sLOOP TO 2$ UNTIL ALL KERNEL PAR'S LOADED 


SEQ 0086 


MD=11=CJKDA=8 KTF117=AA MMU DIAG MACY11 30a(1052) 
11=JUN-79 13:10 


CJKDAB.P11 


035272 


035274 


035320 
035322 


035324 


035412 


012702 


012701 


000010 
177600 
177777 


000010 
177649 
177777 


172300 
900010 
077416 


000002 


172340 
000010 
177777 


000002 


177600 
000010 
077416 


11=JUN=79 13:21 


PAGE 87 
ET ALL WRITEABLE BITS IN ALL PAR/PDR'S SEQ 0087 


MOV #10,R2 ;LOAD LOOP LOUNTER WITH AN 8 
MOV #UIPDRO,R1 ;LOAD ADDRESS OF FIRST PDR INTO R1 
3$: MOV #1 (RI) ;SET BITS_IN A_USER PDR TO 1 


;LOOP TO 3$ UNTIL ALL > PDR'S LOADED 
sLCAD LOOP COUNTER WITH AN 8 

;LOAD ADDRESS OF FIRST PAR INTO R1 

4$: MOV #-1,(R1)+ ;SET BITS IN A USER PAR TO 1 

SOB R2,4$ ;LOOP TO 4$ UNTIL ALL USER PAR'S LOADED 
RTS PC sRETURN TO TEST 


.SBITL READ & COMPARE KERNEL & USER PAR/PDR'S 
: s MAAR RRRRRAAASZASAAARESSLSSLSLSES ESS RES ECE S ESE ESC SLC SLACSCALAS.L a. SY 
*“* 
= THIS SUBROUTINE IS USED BY PAR/PDR DUAL ADDRESSING TEST TO 
:* READ ALL THE PAR'S AND PDR'S TO SEE THAT ONLY ONE REGISTER 
:* WAS CLEARED IN RESPONSE TO A SINGLE PAR OR PDR ADDRESS. 
** ANY FAILURES FOUND BY THE PAR/PDR DUAL ADDRESSING TEST WILL 
ie BE REPORTED BY THIS SUBROUTINE. 
° 
*: ;: '—mwAAAeeeRPRRARASAAASASAAASLASASSSE SES SESS SES ESS SESE SSL SSAC SOLS. SL. Ee 
CMPREG 
MOV #KIPDRO,R1 ;LOAD ADDRESS OF FIRST KERNEL PDR IN R1 
MOV #10,R4 :LOAD LOOP COUNTER WITH AN 8 
MOV #77416,R5 =PUT EXPECTED PDR CONTENTS IN R5 
1$ CMP (R1)R5 TARE ALL WRITEABLE BITS SET AS EXPECTED? 
BEQ 2$ “BRANCH IF YES 
CMP R1,RO :WAS IT THE REG. THAT WAS CLEARED? 
BEQ 2$ :BRANCH IF YES 
MOV (R1) .R2 :SAVE CONTENTS OF IMPROPERLY CLEARED REGISTER 
ERROR 16 :A PDR WAS EFFECTED BY CLEARING A DIFFERENT PAR/PDR 
:FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
“RTS PC'' = 000207 
2$: ADD #2,R1 sFORM NEXT ADDRESS 
SOB R4,1$ :LOOP TO 1$ UNTIL ALL KERNEL PDR'S CHECKED 
MOV #KIPARO,R1 “LOAD ADDRESS OF FIRST KERNEL PAR IN R1 
MOV #10,R4 :LOAD LOOP COUNTER WITH AN 8 
MOV #177777. R5 ;PUT EXPECTED PAR CONTENTS IN RS 
3g: CMP (R1).R5 ARE ALL WRITEABLE BiTS SET AS EXPECTED? 
BEQ 4$ “BRANCH IF YES 
CMP R1.RO :WAS IT THE REG. THAT WAS CLEARED? 
BEQ 4$ *BRANCH IF YES 
MOV (R1) .R2 : SAVE CONTENTS OF IMPROPERLY CLEARED REGISTER 
ERROR 16 A PAR WAS EFFECTED BY CLEARING A DIFFENENT PAR/PDR 
“FOR TIGHTER SCOPE LOOP 
REPLACE ERROR CALL WITH 
“RTS PC’’ = 000207 
4$: ADD #2,R1 STORM NEXT ADDRESS 
SOB R4,3$ :LOOP TO 3$ UNTIL ALL KERNEL PAR'S CHECKED 
MOV #UIPDRO,R1 ;LOAD ADDRESS OF FIRST USER PDR IN R1 
MOV #10,R4 [LOAD LOOP COUNTER WITH AN 8 
MOV #77616 R5 =PUT EXPECTED PDR CONTENTS IN RS 
S$: CMP » RS “ARE ALL WR! TEABLE BITS SET AS EXPECTED? 
BEQ ‘s “BRANCH IF YES 
CMP R1,R0 :WAS IT THE REG. THAT WAS CLEARED? 


BEQ é$ “BRANCH IF YES 


MD=11=CJKDA=8 KTF11=AA MMU D 
* J1=JUN=79 13:1 


CJKDAB.P11 


035414 
035416 


035420 


055454 


035456 
0535462 
035464 


035542 
035550 


011102 
104016 


072227 


J 
) 


000002 
177640 


000010 
177777 


000002 


172340 
140000 


177640 
001506 
177764 
177761 


001306 
160000 
177766 


177776 


AG MACY11 g phy y 


6$: 


7$: 


8$: 


e Ff 
PAGE 


88 


sSAVE CONTENTS OF IMPROPERLY CLEARED REGISTER 
>& PDR WAS EFFECTED —"= A DIFFERENT PAR/PDR 


;FOR TIGHTER SCOPE 

;REPLACE ERROR CALL WITH 

sAN “RTS PC'* = 000207 

;FORM NEXT ADDRESS 

:LOOP TO 5$ UNTIL ALL USER PDR'S ap ap 
;LOAD ADDRESS OF FIRST USER PAR IN 

;LOAD LOOP COUNTER WITH AN 8 

;PUT EXPECTED PAR CONTENTS S_IN R5 

SARE ALL WRITEABLE BITS SET AS EXPECTED? 
;BRANCH IF YES 


“WAS IT THE REG. THAT WAS CLEARED? 
;BRANCH IF YES 
;SAVE CONTENTS OF 
3A PAR WAS EFFECTED BY CLEARING A DIFFERENT PAR/PDR 
;FOR TIGHTER SCOPE LOOP 


iMPROPERLY CLEARED REGISTER 


a Mate ERROR CALL WITH 
"RTS PC'' = 000207 
“FORM NEXT ADDRESS 
;LOOP TO 7$ UNTIL ALL USER PAR'S CHECKED 


17i=JUN=79 13:21 
& COMPARE KERNEL & USER DAR/POR’S 

MOV (R1),R2 
ERROR 16 
ADD #2,R1 
SOB R4,5$ 
MOV #UIPARO,R1 
MOV #10,R4 
MOV #177777,R5 
CMP (R1),R 
BEQ 8$ 
CMP R1,R0 
BEQ 8$ 
MOV (R1),R2 
FRROR 16 
ADD #2,P1 
SOB R4,7$ 
RTS PC 


. SBITL 


’ 

** 
*® 
** 
** 
** 
*"* 
** 
*?® 
** 
** 
** 
** 
** 
© 


1$: 


CONVERT VIRTUAL ADDRESS 


RARER RARER REE 


:RETURN TO TEST 
TO PHYSICAL ADDRESS 


THIS SUBROUTINE IS USED TO FORM AN 18-BIT PHYSICAL ADDRESS 
(PBA) FROM THE 16-BIT VIRTUAL ADDRESS (VBA) AND THE APPROPRIATE 


PAGE ADDRESS REGISTER (PAR). 
MANAGEMENT LOGIC IS USED. 
IS TO Bc USED, = <5:0>+PBA <5:0>, 
O GIVE PBA <17:6>. 

PHYSICAL ADDRESS ie. IN LOC. ° 
ARE USED TO SELECT THE KERNEL OR USER PAR/PDR'S. 


TO PAR <11:00> T 
ARE LEFT IN LOC. 
IS ENTERED WITH LOC. 
ADDRESS. 


MOV RO,-(SP) 
MOV R2.-(SP) 

MOV #K IPARO,R2 
BIT #140000.PSW 
BEQ 1$ 

MOV #UIPARO,R2 
MOV VIRT1.RO 

ASH #-14_R0 

BIC #177761,RO 
ADD RO,R2 

MOV (R2) RO 

MOV ROR 

MOV VIRT1,PBALO 
BIC #160000, PBALO 
ASH #-12,R2 


;MAS 
:ADD OrFSET TO BASE PAR ADDRESS 


:PUT VIRTUAL ADDR. 
;CLEAR OFF BITS <15:15> OF ORIGINAL VBA 
:GET PAR <11:00> DOWN TO BITS <1:0> OF R2 


THE SAME METHUD USED BY THE MEMORY 
VBA <15: ‘i. SELECTS WHICH PAR/PDR 
VBA <12:6> IS ADDED 
BITS rok OF THE 
PBAHI** AND BITS <15:00> 
THE PSW'S ‘'CURRENT MODE’ BITS 
THE ROUTINE 


“VIRT1"* CONTAINING THE 16-BIT VIRTUAL 


REE EKEREKEEKEKEEEKEEEKEEEEEREREREEEEEEEKEKEEE EK 


7zPUSH RO ON Bre 
7;PUSH R2 ON S 


TACK 

;LOAD ADDRESS OF FIRST KERNEL FAR IN R2 

;IN USER MODE? 

:BRANCH IF NO 

att ADDPESS OF FIRST USER PAR IN R2 
VIRTUAL ADDR. (VBA) INTO RO 


;GET BITS <11:00> FROM APPROPRIATE PAR 
;COPY PAR BITS <11:00> INTO R2 
IN LOC. °, PBALO"' 


SEQ 0088 





171-JUN=-79 


13:21 


; .* 
PAGE 


89 
CONVERT VIRTUAL ADDRESS TO PHYSICAL ADDRESS 


MD=11=CJKDA=B KTF11=AA MMU . MACY11 30A(1052) 

CJKDAB.P11 11=JUN=79 13:10 
44 035554 042702 177774 BIC 
4481 035560 072027 000006 ASH 
4482 035564 042700 000077 BIC 
cat 035570 060037 001312 ADD 
4485 035574 005502 ADC 
4486 035576 010237 001314 MOV 
4487 035602 012602 MOV 
4488 035604 012600 MO‘ 
mer 24 035606 000207 RTS 


#1777764 ,R2 
#6,R0 


nr, RO 
RO, PBALO 


R2 
R2,PBAHI 
(SP)+,R2 
(SP)+,RO 
PC 


;CLEAR OFF ALL BITS BUT BITS <1:0> 
> SHIF T PAR<9:0> TC yt 6> OF RO 
= CLEAR BITS <5:0> OF R 
IN EFFECT, ADD VBA<12:0> TO PAR<9:0> 
: (PAR<9:0> IN Bly <15:6> OF RO) 
“ADD ANY CARRY R2 
;PUT BITS <17: 165 OF PHYSICAL ADDR. 
; sPOP STACK INTO R2 
;POP STACK INTO RO 
RETURN TO PROGRAM 


IN PBAHI 


MD-11=CJKDA=8 KTF11=AA MMU D 
11=JUN=79 13:17 


CJKDAB.P11 


035610 


03 
035652 
035654 


035710 
035714 


035720 


035754 


035760 


022737 


117746 
042716 


021627 
001015 
104401 
062706 
123727 


001003 
012777 
000137 


021627 
005 


I 
0 


000176 001140 


143320 
143314 
177600 
000007 
001134 


036552 
036557 
000176 


036570 
143236 
143232 
177600 
000003 
036540 
000006 
001135 
000100 
036602 
000025 
036545 
000006 


000015 
000004 
000002 


000001 


000001 
143170 


143116 


AG MACY11 ee tk 


» ENABL 


Ti=JUN“79 13:21 
Y INPUT ROUTINE 


~SBTTL TTY INPUT ROUTINE 


5 RARER EE 


LSB 


M 7 
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RII IIIS III IIIIIIOIIIOIUIOIUIUIDIIIII IIIT RR tt 

® &SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

s *SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 


ed _OPERAT ING IN TTY FLAG MODE. 
CMP #SWR 


$CKSWR EG, SWR 
~ BNE 
TSTB = ASTKS 
BPL 15$ 
MOVB  a$TKB.-(SP) 
BIC #°C177, (SP) 
CMP #7,(SP)+ 
BNE 15$ 
C $AUTOB, 41 
BEQ 15$ 
TYPE .SCNTLG 
$GTSWR: TYPE »SMSWR 
V SWREG, -(SP) 
TYPOC 
TYPE »SMNEW 
19$: CLR -(SP) 
CLR -(SP) 
7$: TSTB = aSTKS 
BPL 7$ 
MOVB a$TKB,-(SP) 
BIC #°C177, (SP) 
CMP (SP) #3 
BNE 9$ 
TYPE SSCNTLC 
ADD #6, SP 
CMPB = $INTAG, 41 
BNE 84 
MOV #100, a$TKS 
8$: JMP CNTRLC 
o$: CMP (SP) 425 
BNE 10$ 
TYPE S$CNTLU 
20$: ADD #6,SP 
BR 19$ 
10$: CMP (SP) #15 
BNE 16$ 
TST 4(SP) 
BEQ 11$ 
MOV 2(SP) ,aSWR 


e21S a SOFT-SWR SELECTED? 
H IF NO 


ERE? 
3z1F NO, DON'T WAIT AROUND 
«SAVE THE CHAR 
; ;STRIP-OFF THE ASCII 
3:18 IT A CONTROL G? 


TO USER 
E WE RUNNING IN AUTO-MODE? 
«BRANCH IF YES 


7zECHO THE CONTROL-G (*G) 
32 TYPE CURRENT CONTENTS 


he SWREG FOR TYPEOUT 
0 yr oan tan — DIGITS) 


:z1F NOT TRY AGAIN 


;zPICK UP CHAR 
7zMAKE IT 7-BIT ASCII 


e215 IT A CONTROL-C? 
CH IF NOT 
>: YES, ECHO CONTROL-C (“C) 
>: CLEAN UP STACK 
fm veer A ay KEYBOARD INTERRUPTS? 
;;ALLOW TTY xe LOOMS INTERRUPTS 
3;CONTROL-C RESTAR 
e21S IT A CONTROL-U? 
CH IF NOT 
si YES, ECHO CONTROL=U (“*U) 
; IGNORE PREVIOUS INPUT 
-:LET'S TRY IT AGAIN 
e215 IT A <CR>? 
a3 CH IF NO 
7: YES, IS IT THE FIRST CHAR? 
CH IF YES 
>: SAVE NEW SWR 


SEQ 0090 


MD-11=CJKDA=8 KTF11=-AA ‘ 4 MACY11 ee te 


11=JUN=79 13:21 


N 7 
PAGE 91 


7¢ CLEAR UP STACK 
sECHO <CR> AND <L 
; ;RE~ENABLE Aa KBD INTERRUPTS? 


F 
;sRE-ENABLE TTY KBD INTERRUPTS 


: ;BRANCH IF YES 

*: H IF YES 

: :STRIP-OFF ASCII 

;1S gg Ri CHAR 


;3NO, SHIFT PRESENT 
7; CHAR Fon eau MAKE 


se TYPE ?<CR><LF> 
ssSIMULATE CONTROL=-U 


CRAKEAR KEKKKEEREKEKKEEEKEEKEEEREEKKEKEKKEKKEEEKEEEKEEREEEKEKEE 


SRTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


+3 INPUT A SINGLE CHARACTER FROM THE TTY 
HARACTER IS ON THE STACK 
:;WITH PARITY BIT STRIPPED OFF 


$a OAVE DOWN THE PC 
; « SAVE THE PS 


-IS if 2 wees 


:TWAIT FOR A CHARACTER 
aslo UNTIL ITS THERE 
43 CHARACTER 

;sMAKE IT 7-BIT ASCII 
:2IS IT A CONTROL-Q? 
:31F NOT. DISCARD IT 


:2YES, RESUME 
e215 IT vx CASE? 
CH IF 


YES 
gas IT A SPEC3AL CHAR? 
CH IF YE 


MAKE IT UPPE CASE 
::GO BACK TO USER 


SERA RAE 


CJKDAB.P11 11=JUN=79 1 Y INPUT ROUTINE 
4548 036022 062706 000006 11$: ADD #6,SP 
4549 036026 104401 0601223 TYPE  ,$CRLF 
4550 036032 123727 007135 000001 CMPB ~—s_ S$ IINTAG,, #1 
4551 036040 001003 BNE 15$ 
4552 036042 012777 000100 143074 MOV #100, a$TKS 
4553 036050 : RTI 
4554 036052 004737 037144 16$: JSR PC, $TYPEC 
4555 036056 021627 000060 CMP (SP) ,460 
4556 0 002420 =’ BLT 1 
4557 0 021627 000067 CMP (SP) 467 
4558 036070 003015 BGT 18$ 
4559 036072 042726 000060 BIC #60, (SP) + 
4560 036076 005766 000002 TST 2(SP) 
4561 036102 001403 BEQ 17$ 
4562 036104 006316 ASL (SP) 
4563 036106 006316 ASL (SP) 
4564 036110 006316 ASL (SP) 
4565 036112 005266 000002 17$: INC 2(SP) 
4566 036116 056616 177776 BIS =2(SP), (SP) 
4567 036122 000667 BR 7$ 
4568 036124 104401 001222 18$: TYPE ,$QUES 
4569 036130 000720 BR 20$ 
4570 .DSABL LSB 
4571 
4572 
4573 
4574 
4575 = *CALL: 
4576 :* RDCHR 
4577 os RETURN HERE 
4578 :* 
4579 : 
4580 
4581 036132 011646 SRDCHR: MOV (SP) ,=(SP) 
4582 0361 6666 000004 000002 MOV 4(SP) ,2(SP) 
4583 036142 105777 142776 1$: TSTB = aSTKS 
4584 036146 100375 BPL 1$ 
4585 036150 117766 142772 000004 MOVB  a$TKB,4(SP) 
4586 036156 042766 177600 000004 BIC rterEN 4 (SP) 
4587 036164 026627 000004 000023 CMP 4(SP) #23 
4588 036172 001013 BNE of 
4589 036174 105777 142744 2$: TSTB = aSTKS 
4590 036200 100375 BPL 2$ 
4591 036202 117746 142740 MOVB  a$TKB,-(SP) 
4592 036206 042716 177600 BIC #°C177, (SP) 
4593 036212 022627 000021 CMP (SP) +,421 
4594 036216 001 BNE 2$ 
4595 036220 750 BR 1$ 
4596 036222 026627 000004 000140 3$: CMP 4(SP) ,4140 
4597 036230 002407 BLT 4 
4598 036232 026627 000004 000175 CMP 4(SP) 4175 
4599 036240 003003 BGT 
4600 036242 042766 000040 000004 BIC #40,4(SP) 
4601 036250 4$: RT] 
4602 
4603 


:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


SEQ 0091 


MD=11=CJKDA-8 KTF11-AA MMU D 
11=JUN- 1 


CJKDAB.P11 


4604 
4605 


012603 


79 13: 


] 
0 


036530 
036540 


000003 
036540 


036602 
000177 


000134 
036526 
177777 
036530 


036526 
036526 


000134 
036526 


000025 
036545 
000022 
001223 
036530 
001222 
036526 
036526 
000015 


177777 
001224 


036526 


036526 


AG MACY11 sick 


Ti=JUN=79 13:21 


INPUT ROUTINE 


> *CALL: 


10$: 


6$: 


5$: 


7$: 


8$: 


4$: 
3$: 


RDLIN 
RETURN HERE 


ASTTYIN,R3 
> ap tir 


R3,-(SP) 
P) 


(SP) +, (R3) 
#3, (R3) 
10$ 


,SCNTLC 
(SP) + 
(SP)+,R3 
CNTRLC 
#177, (R3) 
5$ 
(SP) 
6$ 
#'°\ ,9$ 
9 
— 
R3,ASTTYIN 
4$ 
(R3),9$ 
$ 


g 


2$ 
(SP) 
7 


$ 
#'\ 9S 


(SP) 
#25, (R3) 
S$CNTLU 
i$ 
#22,(R3) 
3$ 

(R3) 
»$CRLF 
sSTTYIN 
» $QUES 
(R3) ,9$ 
#15, (R3)+ 
2$ 
-1(R3) 


oSLF 
(SP) + 
(SP) +,R3 


B 8 
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SEQ 0092 


zs INPUT A STRING FROM THE TTY | 
ADDRESS OF FIRST CHARACTER WiLL BE ON THE STACK 
;; TERMINATOR WILL BE A BYTE OF ALL O'S 


7 SAV VE R3 

;CLEAR THE RUBOUT KEY 
IGET ADDRESS 
; sBUFFER vFULL? 


;sBR IF YE 
:GO READ ONE CHARACTER FROM THE TTY 
:iGET CHARACTER 
S IT A_CONTROL-C? 
;;BRANCH IF NO 
3 TYPE A CONTROL-C (“*C) 

;CLEAN RUBOUT KEY OFF OF THE STACK 
ZZRESTORE R3 
eer | CONTROL=C RESTART 

S ee A RUBOUT 


: :BR IF NO 
::1S THIS THE FIRST RUBOUT? 
;;BR IF NO 
3; TYPE A BACK SLASH 


33361 THE RUBOUT KEY 
BY ONE 


; BACKUP 
3s STACK EMPTY? 
>sBR_IF YES 
+) TYPEOUT THE DELETED CHAR. 
::GO READ ANOTHER CHAR. 
;;RUBOUT KEY SET? 


;7BR IF NO 
3: TYPE A BACK SLASH 


7¢ CLEAR THE RUBOUT KEY 

S CHARACTER A CTRL U? 
;:BR IF NO 
+ TYPE A CONTROL *U"’ 


; IF NO 

SICLEAR THE CHARACTER 

sc TYPE A ‘CR’ & ‘LF’ . 
>; TYPE THE INPUT STRING 

$3 YP ok Ves ANOTHER CHACTER 


::CLEAR THE BUFFER AND LOOP 
;sECHO THE CHARACTER 


Ay ty FOR RETURN 


EED a Soe 
RUBOUT KEY FROM THE STACK * 


«RESTORE R3 *: 





Cc 8 
AG MACY11 30A(1052) 17=JUN=79 13:21 PAGE 93 


MD-11=CJKDA=B KTF11=AA MMU DI 
CJKDAB.P11 11=JUN=79 13:10 TTY INPUT ROUTINE SEQ 0093 
4660 036506 011646 MOV (SP) ,=(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
4661 036510 016666 900004 000002 MOV 4(SP) ,2(SP) 3 FIRST ASCII CHARACTER ON IT 
4662 036516 612766 036530 000004 MOV ASTTYIN,4(SP) 
4663 036524 000002 RTI 7 ;RETURN 
4664 036526 000 9$: -BYTE OQ ;;STORAGE FOR ASCII CHAR. TO TYPE 
4665 036527 000 BYTE O 3; TERMINATOR 
4666 036530 000010 STTYIN: .BLKB- 8, ;7RESERVE 8 BYTES FOR TTY INPUT 
mrs! 036540 041536 005015 OOO S$CNTLC: .ASCIZ /*C€/<15><12> 3 ;CONTROL °*'C’' 


4 036545 136 006525 000012 $CNTILU: .ASCIZ /*U/<15><12> ;sCONTROL ‘*U"’ 
4669 036552 043536 005015 000 $CNTLG: .ASCIZ /*G/<15><12> ;sCONTROL ‘'G’’ 
4670 Berens 015 Soba 051127 $MSWR: .ASCIZ <15><12>/SWR = / 


040 
4672 036570 020040 moe 020127 S$MNEW: .ASCIZ / NEW = / 


re xh 0366 EVEN 
rege -SBTTL CONTROL=C SERVICING ROUTINE 
4678 ;* THE FOLLOWING CODE IS EXECUTED WHEN A CONTROL=C HAS 


4679 ;* BEEN TYPED INSTEAD OF A NEW SWITCH REG. VALUE. 


MD~-11=CJKDA=B KTF11=AA MMU D 
CJKDAB.P11 11=JUN-79 1 


013737 


124 
020117 


047123 


105737 


] 
13:10 


051501 
051505 


050040 
006517 


001157 


000002 
000001 
000100 


037002 
037222 


AG MACY11 


001210 


036654 


044520 


047124 
051501 
000012 


001246 
001247 


30A(1052) 


11=JUN=79 


13:21 


CONTROL=C SERVICING ROUTINE 


(IN OTHER WORDS, AFTER A CONTROL=G WAS TYPED). 
A NEW SWITCH REG. gor WILL BE ASKED 

THE TEST NUMBER AND P 

AND THEN THE PROGRAM WILL GO TO ‘END=-OF=PASS'’ AND CONTINUE 


o . 
* 


CNTRLC: 


CMSG: 


. SBTTL 


;*NOTE1: 
: *NOTE2: 
; *NOTES: 


«CAL 


JMP 

. WORD 
eASCIZ 
ASCII 


$SPASS ,$TMP5 
$TMPS5 


.CMSG 


STSTNM,1$ 


1$,-(SP) 


2$ 
$TMPS ,-(SP) 


SEOP+2 
0 
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FOR, 
ASS NUMBER WILL BE TYPED, 


3 3 THE VALUE OF ‘‘S$PASS*’ 
FORM CURRENT PASS NO. 
:TYPE THE TEST STOPS MESSAGE 
: SAVE THE TEST NUMBER 
;;SAVE 1$ FOR TYPEOUT 
:3GO_ TYPE=-OCTAL ASCII(ALL DIGITS) 
TYPE 2 SPACES 
:: SAVE $TMPS5 FOR TYPEOUT 
O TYPE=-DECIMAL ASCilI WITH SIGN 
VALUE 


4 gn FOR TEST NUMBER 
CES AND THE STOP MESSAGE 


a ; TWO SPA 
/ JUMPING TO END-OF -PASS/<15><12> 


~ASCIZ /TESTNO PASSNO/<15><12> 


EVEN 
TYPE ROUTINE 


DIO IOI IIUIDIIIUIIIOIUIOIIIOIOIOIIIIOIOIIOIOIII III IOI IIIT TOIT ITI 

" RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 

>*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


STPFLG 
1$ 


ALL: 
gs ai A TRAP INSTRUCTION 
YPE »ME SADR 


3$ 
RO,-(SP) 
P) ,RO 


a2(S 

#APTENV, SENV 
62$ 
#APTSPOOL , SENVM 
62$ 


RO,61$ 


PC,SATY3 


:sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


e215 pe A TERMINAL? 


:EHALT. HERE IF NO TERMINAL 
AVE 


3; SAVE RO 
3z:GET ADDRESS OF ASCIZ STRING 
3 RUNNING IN APT MODE 

3zINO.GO CHECK FOR APT CONSOLE 
::SPOOL MESSAGE TO APT 

;sNO,GO CHECK FOR CONSOLE 


:;SPOOL MESSAGE TO AP 


SEQ 0094 


13:21 
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MD-11=CJKDA=B KTF11=AA ay DIAG MACY11 30A(1052) 17=JUN=79 
CJKDAB.P11 11=JUN=-79, 13:10 TYPE ROUTINE 
4736 037002 000000 — 61$: -WORD 0 fa tee: ADDRESS 
4737 037004 132737 000040 001247 62$: BITB #APTCSUP, SENVM T CONSOLE SUPPRESSED 
4738 037012 001003 BNE 60$ = :YES, SKIP TYPE OUT 
4739 037014 112046 2$: MOVB (RO) +,=(SP) ; sPUSH CHARACTER TO BE TYPED ONTO STACK 
4740 037016 1005 BNE 4$ ;BR IF IT ISN'T THE TERMINATOR 
4741 037020 005726 TST (SP) + IF TERMINATOR POP IT OFF THE STACK 
4742 037022 012600 60$: MOV (SP) +,RO ; sRESTORE RO 
4743 037024 062716 000002 3$: ADD #2, (SP) : sADJUST RETURN PC 
4744 037030 RT] TURN 
47645 037032 122716 000011 4$: CMPB MHT , (SP) «BRANCH IF <HT> 
4746 7036 001430 BEQ 
4747 037040 122716 000200 CMPB ACRLF, (SP) 3 BRANCH IF NOT <CRLF> 
4748 037044 1 BNE 5$ 
4749 37046 005726 TST (SP) + ;;POP <CR><LF> EQUIV 
4750 037050 104401 TYPE 3; TYPE A CR AND LF 
4751 037052 001223 SCRLF 
«752 037054 105037 037210 CLRB SCHARCNT 3: CLEAR CHARACTER COUNT 
4753 037060 755 BR $ 3:GET NEXT CHARACTER 
4754 037062 004737 037144 5$: JSR PC ,STYPEC 3;GO TYPE THIS CHARACTER 
4755 037066 123726 001156 6$: CMPB SFILLC,(SP)+ ee1S IT TIME FOR Ae CHARS. ? ‘ 
4756 037072 001350 BNE 2$ 31F NO GO GET NEXT CHAR. 
4757 037074 013746 001154 MOV SNULi ,- (SP) ;3GET # OF FILLER CHARS. NEEDED 
4758 ;AND THE NULL CHAR. 
4759 037100 105366 000001 7$: DECB 1(SP) ; DOES A NULL NEED TO BE TYPED? 
4760 037104 002770 BLT 6$ ;BR IF NO=--GO POP THE NULL OFF OF STACK 
4761 037106 737 037144 JSR PC ,$TYPEC G0 TYPE A NULL 
4762 037112 105337 037210 DECB SCHARCNT 200 - el COUNT AS A COUNT 
4763 037116 770 7$ ‘3 
4764 
ih ;HORIZONTAL TAB PROCESSOR 
4767 037120 112716 000040 8$: MOVB #* (SP) +c: "ey TAB WITH SPACE 
4768 037124 737 037144 9$: JSR PC, $TYPEC zz TYPE A SPACE 
4769 037130 132737 000007 037210 BITB #7, $CHARCNT ; BRANCH IF NOT AT 
4770 037136 001372 BNE 9$ 3: TAB STOP 
4771 037140 005726 TST (SP) + ;z;POP SPACE OFF STACK 
4772 037142 724 BR 2$ 3;:GET NEXT CHARACTER 
4773 037144 105777 142000 $TYPEC: TSTB a$TPS ;;WAIT UNTIL PRINTER IS READY 
4774 037150 100375 BPL $TYPEC 
4775 037152 116677 002 141772 MOVB 2(SP) ,a$TPB + te: CHAR TO BE TYPED INTO DATA REG. 
4776 371 122766 000015 000002 CMP8 #CR,2(SP) 31S CHARACTER A CARRIAGE RETURN? 
4777 037166 1003 BNE 1$ z CH IF NO 
4778 037170 105037 037210 CLRB SCHARCNT i YES==CLEAR CHARACTER COUNT 
4779 037174 BR $TYPEX IT 
4780 037176 122766 000012 000002 1$: CMPB HLF ,2(SP) -:1S CHARACTER A LINE FEED? 
4781 037204 001402 BEQ $TYPEX : ;BRANCH IF YES 
4782 037206 105227 INCB (PC) + 3; COUNT THE CHARACTER 
4783 037210 S$CHARCNT:.WORD 0O 3; CHARACTER COUNT STORAGE 
aves 037212 000207 $TYPEX: RTS PC 
ae ~-SBTTL APT COMMUNICATIONS ROUTINE 
4788 SAAR KKK EKER 
4789 037214 112737 000001 037460 $ATY1: MOVB #1,$FFLG :;TQ REPORT FATAL ERROR 
4790 037222 112737 000001 037456 $ATY3: MOVB #1. $MFLG ::TO TYPE A MESSAGE 
4791 037230 000403 BR SATYC 


MD=11=-CJKDA=B KTF11=AA_ MMU A MACY11 eye 


CJKDAB.P11 —-11=JUN=79 13:1 
4792 037232 112737 000001 
4793 037240 
4794 037240 010046 
4795 037242 010146 
479% 037244 105737 037456 
4797 037250 001450 
4798 037252 122737 000001 
4799 037260 001031 
4800 037262 132737 000100 
4801 037270 001425 
4802 037272 017600 000004 
4803 037276 062766 000002 
4804 037304 005737 001226 
4805 037310 001375 
4806 037312 010037 001242 
4807 037316 105720 
4808 037320 001376 
4809 037322 163700 001242 
4810 037326 006200 
4811 037330 010037 001244 
4812 037334 012737 000004 
4813 037342 13 
4814 037344 017637 00000 
4815 037352 062766 000002 
4816 037360 013746 177776 
4817 037364 004737 036732 
4818 037370 
4819 037372 
4820 037372 105737 037460 
4821 037376 001416 
4822 037400 005737 001246 
4823 037404 001413 
4824 037406 005737 001226 
4825 037412 001375 
4826 037414 017637 000004 
4827 037422 062766 000002 
4828 037430 005237 001226 
4829 037434 105037 037460 
4830 037440 105037 037457 
4831 037444 105037 037456 
4832 037450 012601 
4833 037452 012600 
4834 037454 07 
4835 037456 
4836 037457 
4837 037460 
4838 037462 
4839 200 
4840 000001 
4841 000100 
4842 000040 
484% 

4844 
4845 
4846 
4847 


037460 


001246 
001247 


000004 


001226 


037370 
000004 


001230 
000004 


SATY4: 
SATYC: 


1$: 


2$: 


12$: 


SMFLG: 
SLFLG: 
SFFLG: 


EVEN 
AFTSIZE=200 


Ti=JUN=79 13:21 
COMMUN! CAT IONS ROUTINE 


MOVB 


APTENV=001 

APTSPOOL=100 
APTCSUP=040 | 
-SBTTL BINARY TO ASCII AND TYPE ROUTINE 


SERRE EERE EEE EERE EERE REE EE 


“STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
; *BINARY~ASCII NUMBER AND TYPE IT. 


#1 ,$FFLG 
RO,-(SP) 
R1,-(SP) 
$MFLG 

5$ 
oe 
#APTSPOOL , SENVM 
@4 (SP) ,RO 
#2,4(SP) 
meat 

RO, $MSGAD 
(RO) + 

2$ 

$MSGAD ,RO 

RO 


RO, SMSGLGT 
. - SMSGTYPE 


a4 (SP) .4$ 
#2,4(SP) 
177776, =(SP) 
PC, $TYPE 

0 

SFFLG 

12$ 

SENV 

12$ 
$MSGTYPE 
11$ 


@4 (SP) ,SFATAL 
#2,4(SP) 


G 
(SP)+,R1 
(SP) +,RO 
PC 
0 
0 
0 
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;;TO ONLY REPORT FATAL ERROR 


+ PUSH RO ON STACK 
PUSH R1 ON STACK 
3s SHOULD ‘ A MESSAGE? 


IF NOT: 
; OPERATING UNDER APT? 
NOT: BR 
: § SHOULD SPOOL MESSAGES? 
NOT: BR 


GET MESSAGE ADDR. 
;;BUMP RETURN ADDR. 
c3SEE IF DONE ad LAST XMISSION? 


WAI 
:;PUT ADDR IN MAILBOX 
:sFIND END OF MESSAGE 


7;SUB START OF MESSAGE 

:sGET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
:sTELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

: PUSH 106 ON STACK 

=:CALL TYPE MACRO 


¢¢ SHOULD» REPORT FATAL ERROR? 
:IF NOT: BR 
: RUNNING UNDER APT? 
NOT: 


: FINISHED LAST MESSAGE? 
NOT: WAIT 


GET ERROR i 
;BUMP RETURN ADDR. 

$3 Tetl apy TO TAKE ERROR 
;zCLEAR FATAL FLAG 
;:CLEAR LOG FLAG 
>sCLEAR MESSAGE FLAG 
:sPOP STACK INTO R1 
aie ie Nig INTO RO 


:sMESSG. FLAG 
;2LOG FLAG 
:zFATAL FLAG 


SEQ 0096 


MD=-11=CJKDA=B KTF11=AA 
CJKDAB.P11 


037462 


037612 


010146 


MMU D 
11=JUN=79 13:1 


I 
0 


000006 
000060 
037534 
037534 


000002 


000 


000005 


037763 


037534 


000004 


037761 


037761 
037763 
037760 


AG MACY11 yobs ce 


>*CALL: 


. 
-* 


$7 YPBN: 


1$: 


2$: 


$BIN: 


11-JUN=79 
BINARY TO ASCII AND TYPE ROUTINE 


-BYTE 0,0 
.SBITL BINARY TO OCTAL (ASCII) 


NUMBER , = (SP) 


13:21 


R1,~(SP) 


6(SP) 


»R1 


#'0,$BIW 


(SP)+, 
2(SP), 
(SP)+, 


R1 
4 (SP) 
(SP) 
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; NUMBER TO BE TYPED 
s TYPE IT 


co R1 ON THE STACK 
¢3GET THE INPUT NUMBER 
:SET *'C’’ SO CAN KEEP TRACK OF THE NUMBER OF BITS 
:7SET CHARACTER TO AN ASCII ‘'0"'. 
;2GET THIS BIT 
; s DONE? 


:sNO--SET THE CHARACTER EQUAL TO THIS BIT 
::GO TYPE THIS BIT 
;-CLEAR *'C’’ SO CAN KEEP TRACK OF SITS 
+ G0 DO THE NEXT BIT 
POP THE STACK INTO R1 
> ADJUST THE STACK 


;zRETURN TO USER 
;sSTORAGE FOR ASCII CHAR. AND TERMINATOR 
AND TYPE 


CREEKS 


“STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 


:*OCTAL (ASCII) NUMBER AND TY 


Pe if. 
;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


¢*CALL: 


& 
* 
* 
* 
* 
** 
"* 
** 
:*CALL: 
* 
* 
**® 
"“* 
** 
& 
* 


$TYPOS: 


$TYPOC: 
$TYPON: 


MOV 


TYPON 
oe HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV 
TYPOC 


NUM ,- 


N 
M 


NUM, - 


(SP) 


(SP) 


; ;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 
3zN=1 TO 6 FOR NUMBER OF DIGITS Tu TYPE 
:;M=1 OR O 
37,17=TYPE LEADING ZEROS 
3,0=SUPPRESS LEADING ZEROS 


$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
$TYPOS OR $TYPOC 


; NUMBER TO BE TYPED 
;:CALL FOR TYPEOUT 


NUM, -(SP) ;NUMBER TO BE TYPED 
SSCALL FOR TYPEOUT 

a(SP) ,-(SP) ::PICKUP THE MODE 

1(SP),$OFILL  ::LOAD ZERO FILL SWITCH 

(SP)+,$O0MODE+1 ::NUMBER OF DiGITS TO TYPé 

#2, (SP) ::ADJUST RETURN ADDRESS 

$TYPON 

#1, SOF ILL :rSET THE ZERO FILL SWITCH 

#6, SOMODE +1 :iSET FOR SIX(6) DIGITS 

#5, $0CNT ::SET THE ITERATION COUNT 

R3,-(SP) :ISAVE R3 

R4,-(SP) :S SAVE R4 

R5.-(SP) =: SAVE RS 

SOMODE +1.R4 :: SET THE NUMBER OF DIGITS TO TYPE 


SEQ 0097 


MD=-11=CJKDA=B KTF11=AA 
CJKDAB.P11 


037616 


037762 


037764 
037764 
037766 
037770 


0 
000000 


MMU D 
11=JUN=79 13:1 


J 
0 


000012 . 


037762 
177770 


000060 


037760 


000002 000004 


AG MACY11 30A(1052) 
BINARY TO OCTAL (ASCII) AND TYPE 


Ti=JUN=79 13:21 


NEG RG 
ADD #6,R4 
MOVB R4 , SOMODE 
MOVB SOFILL, RG 
MOV 12¢(SP),R5 
CLR R3 

1$: ROL R5 
BR 3$ 

2$: ROL RS 
ROL R5 
ROL R5 
MOV R5,R3 

3$: ROL R3 
DECB SOMODE 
BPL 7$ 
BIC #177770,R3 
BNE 4$ 
TST RG 
BEQ 5$ 

4$: INC RG 
BIS #'O,R3 

S$: BIS #" ~R3 
MOVB R3,8$ 
TYPE ,8$ 

7$: DECB SOCNT 
BGT 2$ 
BLT 6$ 
INC RG 
BR 2$ 

6$: MOV (SP)+,R5 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV 2(SP) ,4(SP) 
MOV (SP) +, (SP) 
RT] 

8$: S8YTE @ 
BYTE 0 

SOCNT: .BYTE 0 

S$OFILL: .BYTE 0O 

SOMODE: .WOR 0 
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;¢SUBTRACT IT FOR MAX. ALLOWED 
;;SAVE IT FOR USE 

;;GET THE ZERO Ai SWITCH 
;sPICKUP THE INPUTS NUMBER 
>sCLEAR THE OUTPUT WORD 
;sROTATE MSB INTO *'C*’ 


:GO DO MSB 
::FORM THIS DIGIT 


>GET LSB OF THIS DIGIT 
: TYPE THIS DIGIT? 
:BR iF NO 


“GET. RID OF JUNK 
ss TEST FOR OQ 
TBR IF YES 0? 

:DON'T SUPPRESS ANYMORE 0'S 
: =MAKE THIS DIGIT ASCII 
;ZMAKE ASCII IF NOT ALREADY 
32: SAVE FOR TYPING 
G0 TYPE THIS DIGIT 
3: COUNT BY 1 
;:BR IF MORE TO DO 
:¢BR IF DONE 

; INSURE LAST DIGIT ISN‘T A BLANK 
::G0 DO THE LAST DIGIT 
RESTORE RS 
sRESTQORE R4 
RESTORE R3 
;;SET THE STACK FOR RETURNING 


7 RETURN 
;:STORAGE FOR ASCII DIGIT 
3: TERMINATOR FOR TYPE ROUTINE 
;z:O0CTAL DIGIT COUNTER 
+3 ZERO FILL SWITCH 
UMBER OF DIGITS TO TYPE 


D 3N 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


DISC IIOIIOIIOIIIOI IIIT TOIT TOIT TOR RR Rt RRR Eh tk 
 STHIS ROUTINE 'S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
> *NUMBER IS FOSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
ya WITH SPACES. 


>*CALL 
st 


$1YPDS: 


MOV 
TYPDS 


NUM ,-(SP) 


RO,-(SP) 
R1,-(SP) 
R2,~(SP) 


:;PUT THE BINARY NUMBER ON THE STACK 
7:GO TO THE ROUTINE 


:zPUSH RQ ON STACK 
;PUSH R1 ON STACK 
:;PUSH R2 ON STACK 


SEQ 0098 


| 
13:21 


3zPUSH R3 ON STACK 

3ZzPUSH RS ON STACK 

3;SET BLANK SWITCH AND SIGN 
oh INPUT NUMBER 


: ZERO THE CONSTANTS INDEX 
sSETUP THE OUTPUT POINTER 
:3SET THE FIRST CHARACTER TO A BLANK 
; CD NUMBER 


:iGET THE CONSTANT 
;sFORM THIS BCD DIGIT 


;2BR IF DONE 
:s INCREASE THE BCD DIGIT BY 1 


;z;ADD BACK THE CONSTANT 

: s CHECK IF BCD Ch 
7zFALL THROUGH !F 0 
eee st LEADING Q'S? 


2s IF NO 

77 YES--SET THE SIGN 

7zMAKE THE BCD DIGIT ASCII 

¢ «MAKE IT A SPACE IF NOT ALREADY A DIGIT 
T THIS CHARACTER IN THE OUTPUT BUFFER 

=: JUST INCREMENT ING 

3; CHECK THE TABLE INDEX 

3:G0O DO THE NEXT DIGIT 

::GO TO EXIT 

+ 2GET THE L 


CHANGE TO ASCII 
::WAS THE LSD THE FIRST NON-Z£RO? 
+e YES~=SET THE SIGN FOR TYPING 
; NATOR 


::POP STACK INTO R1 
7zPOP STACK INTO RO 
7zNOW TYPE THE NUMBER 
: ADJUST THE STACK 


; RETURN TO USER 


CREAR AERA ERR REAR REE EEE ee 


MD=11=CJKDA=8 KTF11=AA MMU DIAG MACY11 30A(1052) 17=JUN=79 PAGE 99 
CJKDAB.P11 11=JUN=79 13:10 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
4960 037772 010346 MOV R3,=(SP) 
4961 037774 010546 MOV R5,-<SP) 
4962 037776 012746 020200 MOV #20200, =(SP) 
4963 016605 000020 MOV 20(SP),R5 
4964 BPL 
4965 040010 005405 NEG R5 
4966 040012 112766 000055 VB ss #*=, 1 (SP) 
4967 040020 095 CLR RO 
4968 040022 012703 040200 MOV #$DBLK ,R3 
4969 040026 112723 000040 MOVB a" (R38) + 
4970 040032 005002 2$: CLR 
4971 040034 016001 040170 MOV SD TAL (RO) RI 
4972 040040 160105 33: SUB R1,R5 
4973 040042 002402 ALT 4$ 
4974 040044 005202 INC R2 
4975 040066 000774 BR 3$ 
4976 040050 060105 4$: ADD R1,R5 
4977 040052 005702 TST R2 
4978 040054 001 BNE 5$ 
4979 040056 105716 TSTB. ~—s_ (SP) 
4980 040060 10040 BM! q 
4981 040062 106316 5$: ASLB — (SP) 
4982 040064 103003 BCC 6$ 
4983 116663 000001 MOVB _—1(SP) ,=1(R3) 
4984 040074 052702 000060 6$: BIS #'0,R2 
4985 040100 052702 000040 7$: BIS #" ~R2 
4986 040104 110223 MOVB _—R2, (R3) + 
4987 040106 005720 TST (RO) + 
4988 040110 020027 000010 CMP RO,#10 
4989 040114 062746 BLT 2$ 
4990 040116 00300 BGT 8$ 
4991 040120 010502 MOV R5,R2 
4992 040122 764 BR 6$ 
4993 040124 105726 8$: TSTB =: (SP) + 
4994 040126 BPL 9$ 
4995 040130 116663 177777 MOVE =1(SP),-2(R3) 
4996 0401 105013 9$: (LRB —_ (R33) 
4997 040140 012605 MOV (SP) +,R5 
4998 040142 012603 MOV (SP) +.R3 
4999 040144 012602 MOV (SP)+,R2 
5000 040146 012601 MOV (SP) +_R1 
5001 040150 012600 MOV (SP) +_RO 
5002 040152 104401 040200 TYPE  $SDBLK 
5003 040156 01 000002 000004 MOV 2(SP) .4(SP) 
5004 040164 012616 MOV (SP) +. (SP) 
5005 0401 002 RT] 
5006 040170 023420 $DTBL: 10000 
5007 040172 001750 1000. 
5008 040174 00014 100. 
5009 040176 000012 10. 
5010 040200 000004 $DBLK: .RBLKW 4 
011 .SBTTL SAVE AND RESTORE RO-R5 ROUTINES 
5013 
5014 SAVE RO-R5 
5015 *CALL: 


SEQ 0099 





8 
AG MACY11 30A(1052) 1Ti=JUN=79 73:21 ” PAGE 100 


MD-11=CJKDA=8 KTF11=AA MMU DI 
CJKDAB.P11 11=JUN=-79 13:10 SAVE AND RESTORE RO=R5 ROUTINES SEQ 0100 
5016 ;* SAVREG 
3017 ;*UPCN RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
;* 
5019 > *TOP=-=-(+16) 
5020 :* +2=---(+18) 
5021 se +4<-<=R5 
5022 3% +6=--RG 
5025 3% +8---R5 
5024 3*+10=--R2 
5025 3%4+12==--R1 
5026 3*+14---R0 
5027 
5028 040210 SSAVREG: 
5029 040210 010046 MOV RO,-(SP) 3zPUSH RO ON STACK 
5030 040212 910146 MOV R1,-(SP) 7zPUSH R1 ON STACK 
5031 040214 010246 MOV R2,-(SP) 3ZPUSH R2 ON STACK 
5032 040216 £10346 MOV R3,-(SP) : H R3 ON STACK 
5033 040220 010446 MOV R4,-(SP) 3ZPUSH R4 ON STACK 
5034 040222 010546 MOV R5,-(SP) 73PUSH RS ON STACK 
5035 040224 016646 000022 MOV 22(SP), - (SP) 3: SAVE PS OF MAIN FLOW 
5036 040230 016646 000022 MOV 22(SP),-(SP) 7; SAVE PC OF MAIN FLOW 
5037 040234 016646 000022 MOV 22(SP) .=(SP) 3z SAVE PS OF CALL 
5038 040240 016646 000022 MOV 22(SP) ,-(SF) 7ZSAVE PC OF CALL 
site 040244 000002 RT] 
5041 s*RESTORE RO=-R5 
5042 >*CALL: 
5043 ;* RESREG 
5044 040246 SRESREG: 
5045 040246 012666 000022 MOV (SP)+,22(SP) 7zRESTORE PC OF CALL 
5046 040252 012666 000022 MOV (SP)+,22(SP) s RESTORE PS OF CALL 
5047 040256 012666 000022 MOV (SP) +,22(SP) 7zRESTORE PC OF MAIN FLOW 
5048 040262 012666 000022 MOV (SP) +,22(SP) ;zRESTORE PS OF MAIN FLOW 
5049 040266 012605 MOV (SP)+,R5 3zPOP STACK INTO R5 
5050 040270 012604 MOV (SP)+,R4 7zPOP STACK INTO R4 
5051 040272 012603 MOV (SP)+,R3 7zP0" STACK INTO R3 
5052 040274 012602 MOV (SP)+,R2 7zPOP STACK INTO R2 
5053 040276 012601 MOV (SP)+,R1 7zPOP STACK INTO R1 
5054 040300 012600 MOV (SP)+,RO ;zPOP STACK INTO RO 
5055 040302 000002 RT] 
site -SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
5058 2 SEERA EKEKEEEKEEREEKEEKEKEEEEKEREEKERKEEE 
5059 -*THIS ROUTINE WILL CONVERT A 32-61T UNSIGNED BINARY NUMBER TO AN 
ent pe ieke OCTAL ASCIZ NUMBER. 
** 
5062 ;* MOV #PNTR,-(SP) 7zPOINTER TO LOW WORD OF BINARY NUMBER 
5063 ;* JSR PC, a#$DB20 3:CALL THE ROUTINE 
ghee z* RETURN 32 THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
5066 
5067 040304 104413 $DB20: SAVREG 7zSAVE ALL REGISTERS 
5 040306 016601 (000002 MOV 2° SP 7zPICKUP THE POINTER TO LOW WORD 
5069 040312 012705 040423 MOV SsacTitetS. oRS  ;;POINTER TO DATA TABLE 
5070 040316 012704 000014 MOV #12.,R4 :2D0 ELEVEN CHARACTERS 
5071 040322 012703 177770 MOV #°(7_R3 7 MASK 
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11=JUN-7 1 
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000 
000016 
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] 
0 
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000060 


AG MACY11 goby gi 


1$: 


2$: 
3$: 


SOCTVL: 


11=JUN=79 


B 
~BLKB 


(R1)+,RO 
(R1)+,R1 


13:21 


8 
PAGE 101 
OUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


; LOWER WORD 
: sHIGH WORD 


+ TERMINA TOR 
T CHARACTER IN DATA TABLE 

::GET THIS DIGIT 
+ ¢ COUNT THIS CHARACTER 

;-BR IF NOT THE LAST DIGIT 

;BR IF IT IS THE LAST DIGIT 
TALL DIGITS DONE-ADJUST POINTER FOR FIRST 

Z CHAR. & PUT IT ON THE STACK 

: TRESTORE ALL REGISTERS 
‘TRE TURN TO USER 
;sPOSITION THE MASK FOR THE LAST DIGIT 
+ POSITION THE BINARY NUMBER FOR 
33 THE NEXT OCTAL DIGIT 


+ ¢MASK OUT ALL JUNK 

sMAKE THIS CHAR. ASCII 
::GO Pu? IT IN THE DATA TABLE 
> sRESERVE DATA TABLE 


SEQ 0101 


L 8 
Ti=-JUN=79 13:21 PAGE 162 


MD-11=CJKDA=B KTF11=AA MMU DIAG MACY11 30A(1052) 
CyKDAB.P11 11=JUN=79 13:10 TRAP DECODER SEQ 0102 
oes -SBITL TRAP DECODER 
5097 SRA AEA RAE REA EE EERE RARER ERE ERE ERREE RES 
5098 ;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
5099 ;*AND USE IT TO INDEX THROUG'Y THE TRAP TABLE FOR THE STARTING ADDRESS 
5100 ;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
eo :*GO TO THAT ROUTINE. 
5103 040424 010046 $TRAP: MOV RO,-(SP) 7; SAVE RO 
5104 040426 016600 000002 MOV 2(SP),RO 3;GET TRAP ADDRESS 
5105 040432 005740 TST -(RO) ; BACKUP BY 2 
5106 0434 111000 MOVB (RO) ,RO ;2GET RIGHT BYTE OF TRAP 
5107 040436 300 ASL RO ;zPOSITION FOR INDEXING 
5108 040440 016000 040460 MOV STRPAD(RO),RO ;; INDEX TO TABLE 
3444 040444 0002 RTS RO 3:GO TO ROUTINE 
5111 
arte ::THIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 
5114 040446 011646 $TRAP2: MOV (SP) ,-(SP) ;zMOVE THE PC DOWN 
5115 040450 016666 000004 000002 MOV 4(SP),2(SP) 3zMOVE THE PSW DOWN 
Lh 040456 000002 RT] 7ZRESTORE THE PSW 
BaS -SBTTL TRAP TABLE 
5120 ;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
asS3 ;*BY THE ‘'TRAP’’ INSTRUCTION. 
abt, ; ROUT INE 
5125 040460 040446 $TRPAD: .WORD $TRAP2 
5126 040462 036732 $TYPE 32 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
5127 040464 037562 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
5128 0466 037536 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
5129 040470 037576 $TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
5130 040472 037764 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
gle> 040474 037462 $TYPBN ;;CALL=TYPBN TRAP+6(104406) TYPE BINARY (ASCII) NUMBER 
aS, 040476 035660 $GTSWR ;;CALL=GTSWR TRAP+7(104407) GET SOFT-SWR SETTING 
5135 040500 035610 $CKSWR ;;CALL=CKSWR TRAP+10(104410) TEST FOR CHANGE JIN SOFT-SwR 
5136 040502 036132 $SRDCHR ;;CALL=RDCHR TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
5137 05 036252 $SRDLIN ;;CALL=RDLIN TRAP+12(104412) TTY TYPEIN STRING ROUTINE 
5138 05 040210 SSAVREG ;;CALL=SAVREG TRAP+13(104413) SAVE RO=-R5 ROUTINE 
5139 040510 040246 SRESREG ;;CALL=RESREG TRAP+14(104414) RESTORE RO-RS ROUTINE 
2140 .SBTTL POWER DOWN AND UP ROUTINES 
5142 STREAK EEEERERERKEEEEEREEEEEEEEEEEEEEEEERERRRKEREE 
5143 ;POWER DOWN ROUTINE 
5144 040512 012737 040670 000024 $PWRDN: MOV A#SILLUP,Q@#PWRVEC ;;SET FOR FAST UP 
5145 040520 012737 000340 000026 MOV #340 ,aAPWRVEC+2 ;;PRIO:7 
5146 040526 010046 MOV RO,~(SP) 3zPUSH RO ON STACK 
5147 05 010146 MOV R1,~(SP) 3zPUSH R1 ON STACK 
5148 040532 010246 MOV R2,-(SP) 32:PUSH R2 ON STACK 
5149 0534 010346 MOV R3,-(SP) 33PUSH R3 ON STACK 
5150 040536 010446 MOV R4,-(SP) 7;PUSH R4 ON STACK 


cs 
ot 
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ce ee ee ee eed nd ed dd eed 
AAA 
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4 
040564 


040670 


040674 
140324 


040512 
000340 


000020 
034144 


050040 


000024 


000024 


000024 
000026 


000002 


053517 


020107 


AG MACY11 er he 
POWER 


, xkaR 


: POWER 
$PWRUP : 


1$: 
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DOWN AND UP ROUTINE 
MOV R5,-(SP) ;;PUSH R5 ON STACK 
; ;PUSH @SWR ON STACK 


MOV , SSAVRE “SAVE SP 

Hof" #SPWRUP , AAPWRVEC’ -;SET UP VECTOR 

BR -~2 3HANG UP 
LASBRASASALALASAALALESSSAASZESLELSASES SESE SELASLSLSALSCLASCLASCALASGaASSES = 
UP ROUTINE 

MOV #$ILLUP, dFPWRVEC 454 FOR FAST DOWN 

MOV $SAVR6, SP ::GET SP 

CLR SSAVR6 ;;WAIT LOOP FOR THE TTY 

INC SSAVR6 ;;WAIT FOR THE INC 

BNE 1$ es WORD 


:sPOP STACK INTO @SWR 
:sPOP STACK INTO R5 

:sPOP STACK INTO R4 
MOV (SP)+,R3 + ¢POP STACK INTO R35 
MOV (SP)+,R2 


MOV (SP)+-R1 : :POP 
MOV (SP)+-RO : ;POP 0 

MOV § #$PWRDN,@#PWRYEC’ :;SET UP THE POWER DOWN VECTOR 
MOV § #340, a4PWRVEC+2 ;:PRIO:7 

:;REPORT THE POWER FAILURE 


MOV (SP) +, @SWR 
MOV (SP)+,R5 
MOV (SP)+,R4 


SPWRMG: .WORD PWRMSG ;zPOWER FAIL MESSAGE POINTER 
MOV (PC) +, (SP) ZZRESTART AT RESTRT 
$SPWRAD: .WORD RESTRT ; RESTART ADDRESS 
BIC #20,2(SP) 3zCLEAR ‘'T'’ BIT 
$TBIT 3:CLEAR THE ‘‘T’’ BIT FLAG 
$SILLUP: HALT a POWER UP SEQUENCE WAS STARTED 
BR -~2 ; BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 PUT THE SP HERE 
PWRMSG: .ASCIZ <12><15>? POWER FAILURE - RESTARTING ?<12><15> 


EVEN 


SEQ 0103 


MD=11-CJKDA=B KTF11=AA MMU DIAG MACY11 tr he 
11=JUN-79 


CJKDAB.P11 

5193 

5194 , 040740 
5195‘ 040746 
5196 07 
5197 0762 
3198 040770 
3199 040776 
5200 1000 
5201 041006 
3202 041014 
5203 041022 
59204 041050 
3205 041036 
3206 041044 
9207 041047 
5208 041054 
3209 041062 
5210 041070 
5211 041076 
9212 041104 
5213 041106 
5214 041114 
5215 041122 
5216 041130 
3217 041136 
3218 041141 
5219 041146 
5220 041154 
5221 041162 
S222 041170 
5225 041176 
5224 041204 
5225 041212 
3226 041214 
9227 041222 
5228 0412350 
5229 041236 
5230 041244 
5231 041252 
5232 041260 
52335 041261 
9234 041266 
5235 041274 
5236 041302 
5237 041310 
5238 041316 
5239 041517 
5240 041524 
5241 041332 
5242 041340 
52435 041346 
5244 041354 
5245 041362 
5246 041365 
5247 041370 
5248 0413576 


043515 
042522 


13:10 


16 
020122 
046440 


052517 


046505 
052115 
027107 


042520 
04 


031040 
051117 


051520 
041040 


050040 
020114 


033122 
046505 


052125 
040515 


051524 


020056 
020056 
053440 


N 8 
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RROR MESSAGES, DATA HEADERS-TABLES & FORMATS 


. 5B 
EM1: 


EM2: 


EM$: 


EM4: 


EMS: 


EM6: 


EM7: 


EM10: 


EM11: 


ASCIZ 


ASCIZ 


eASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


TTL ERROR MESSAGES, DATA HEADERS=-TASLES & FORMATS 


/UNEXPECTED CPU TRAP TO LOC. 004/ 


/UNEXPECTED MEM. MGMT. TRAP TO LOC. 250/ 


/PRIORITY BITS SET WRONG IN PSW/ 


/MODE BITS SET WRONG IN PSW/ 


/DUAL ADDRESSING BETWEEN HI&LO BYTES OF PSW/ 


/KERNEL R6 CHANGED BY WRITING USER R6/ 


/A MEMORY MGMT. REG. TIMED OQUT/ 


/SUMMARY OF MEM. MGMT. REG. TIMEOUTS/ 


/MEM. MGMT. REG. WOULD NOT CLEAR/ 


SEQ Gi04 


BY 

MD-11=CJKDA=8 KTF11=AA MMU DIAG MACY11 30A(1052) 11-JUN-79 13:21 PAGE 105 
CJKDAB.P11 11=JUN-79 13:10 ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS SEQ 0105 

5249 1404 052517 042114 047040 

5250 1412 052117 041440 042514 

5251 1420 051101 000 

5252 1423 115 046505 020056 EM12: .ASCIZ /MEM. MGMT. REG. BITS NOT SET CORRECTLY/ 

5255 1430 043515 052115 020056 

5254 1436 042522 027107 041040 

5255 1444 052111 020123 047516 

5256 1452 020124 042523 020124 

5257 1460 0475035 051122 041505 

5258 1466 046124 000131 

5259 1472 051123 020060 043105 EM13:  .ASCIZ /SRO EFFECTED BY WRITE TO PSw/ 

5260 1500 042506 052103 042105 

5261 506 1 020131 051127 

5262 314 052111 020105 04 

5263 322 053523 000 

5264 S27 123 030522 042040 EM14: .ASCIZ /SR1 DID NOT READ ALL ZEROS/ 

5265 534 042111 7040 052117 

5266 542 051040 040505 020104 

5267 550 046101 020114 042532 

5268 273 047522 000123 


62 525306 046101 040440 EM15:  .ASCIZ /DUAL ADDRESSING BETWEEN BYTES OF PAR OR PDR/ 


636 be She 046101 040440 §EM16: .ASCIZ /DUAL ADDRESSING BETWEEN PAR-PDR'S/ 


040520 026522 042120 


S 
» *) 
RRRRRRRRRRRRRRRRRRRRRRRRRRRRKRRRRRRKRRRRX 


5282 674 023522 000123 
5283 700 044120 051531 041511 £EM17:  .ASCIZ /PHYSICAL ADDRESS FORMED WRONG/ 
5284 7 046101 040440 042104 
5285 714 042522 051523 043040 
5286 722 051117 042515 020104 
5287 730 051127 047117 
5288 736 044120 051531 020056 EM20:  .ASCIZ /PHYS. ADDR. FORMED WRONG IN RELOCATE MODE/ 
5289 744 042101 051104 020056 
5290 041752 506 046522 042105 
9291 041760 053440 047522 043516 
2 044440 020116 042522 
9293 041774 047514 040503 042524 
5294 2002 046440 042117 000105 
5295 042010 026527 044502 020124 £EM21:  .ASCIZ /W-BIT DID NOT GET SET IN PDR/ 
5296 042016 044504 104 047516 


040 000 
5300 042045 127 041055 052111 EM22: .ASCIZ /W-BIT SET IN MORE THAN ONE PDR/ 


042066 0 0 
5304 042074 047117 020105 042120 


: Cc 9 
AG MACY11 30A(1052) 17<JUN=79 13:21 PAGE 106 


MD=-11=CJKDA=B KTF11-AA MMU DI 
10 ERROR MESSAGES, DATA HEADERS=TABLES & FORMATS SEQ 0106 


CJKDAB.P11 11=JUN-79 13: 


5305 042192 000122 
5306 042104 026527 044502 020124 EM23: .ASCIZ /W-BIT NOT CLEARED BY WRITING TO PDR/ 
59307 042112 047516 020124 046103 
5308 042120 040505 042522 020104 
59309 042126 054502 053440 044522 
5310 042134 524 043516 052040 
59311 042142 020117 042120 000122 
5312 042150 051127 052111 047111 EM24: .ASCIZ /WRITING SRO SET W=BIT IN KIPDR7/ 
5313 042156 020107 051123 02006 
59314 042164 042523 020124 026527 
59315 042172 044502 020124 047111 
2315 be She 045440 050111 051104 
5318 042210 026527 044502 020124 EM25:  .ASCIZ /W-BIT GOT SET DURING TIMEOUT ABORT/ 
5319 042216 047507 020124 042523 
5320 0422 020124 052504 044522 
9321 042232 043516 052040 046511 
5322 40 047505 052125 040440 
3 2246 047502 052122 000 
5324 042253 115 046505 051117 EM26:  .ASCIZ /MEMORY MGMT. ACCESS ABORT DID NOT OCCUR/ 
9325 042260 020131 043515 052115 
5326 20056 041501 042503 
9327 042274 051523 040440 047502 
5328 052122 0420 042111 
5329 042310 040 052117 047440 


330 000 

5331 042323 107 041503 051505 EM27: .ASCIZ /ACCESS ERROR DID NOT ABORT INSTRUCTION/ 
042366 5 

9338 042372 051123 020060 044504 EM30: .ASCIZ /SRO DID NOT REPORT ACCESS ERROR CORRECTLY/ 
042436 000131 

5345 042444 044504 Re sete 047516 EM31:  .ASCIZ /DID NOT LOCKUP CORRECT VIRTUAL ADDR./ 


534 
5350 042502 er 042104 027122 
wrest 020105 EM32: .ASCIZ /PAGE LGTH. ABORT OCCURRED WHEN IT SHOULDN'T HAVE/ 
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CJKDAB.P11 11=JUN=-79 13:10 ERROR MESSAGES, DATA HEADERS-TABLES & FORMATS SEQ 0107 
5361 042572 040520 042507 046040 EM33: .ASCIZ /PAGE LGTH. ABORT DID NOT OCCUR WHEN IT SHOULD HAVE/ 
3362 042600 052107 027110 040440 
5363 r4 047 052122 042040 
042614 042111 047040 052117 
5365 042622 047440 041503 051125 
2630 053440 942510 020116 
5367 042636 052111 051440 047510 
5 046125 020104 040510 


536 000 
5370 oysrt 123 Bz Neh 0420460 EM34: .ASCIZ /SRO DID NOT REPORT PAGE LGTH. ABORT CORRECTLY/ 


000 
208 042733 123 030122 047440 EM37:  .ASCIZ /SRO OR SR2 CHANGED BY A SECOND ABORT/ 


1505 
9383 042770 020104 041101 051117 
384 000124 
9385 0435000 051123 020060 051117 EM40: .ASCIZ /SRO OR SR2 WERE NOT ‘RESET'’ BY A RESET/ 


020042 
ng ito 051505 
5392 043047 123 Se ancs 047040 EM41: .ASCIZ /SR2 NOT TRACKING CORRECTLY/ 


394 043062 
5395 043070 047503 apni $1 041505 


3396 043076 046124 000131 

5397 043102 4504 020104 047516 EM42: .ASCIZ /DID NOT TRAP THRU KERNEL SPACE/ 

5398 043110 020124 051124 050101 

9599 043116 052040 051110 020125 

5400 043124 042513 047122 046105 

9401 043132 051440 040520 042503 

5402 043140 000 

5403 043141 113 020124 051105 EM43:  .ASCIZ /KT ERROR NOT SERVICED ON TIMEOUT ERROR/ 
5404 043146 7522 020122 047516 

5405 043154 020124 042523 053122 

5406 043162 1511 042105 047440 

9407 043170 020116 044524 042515 

5408 043176 052517 020124 051105 

5409 0432 047522 000122 

9410 043210 051123 020060 051117 EM44: .ASCIZ /SRO OR SR2 CHANGED BY TIMEOUT ERROR/ 
5411 043216 051440 031122 041440 

5412 045224 510 043516 042105 

5413 043232 041040 020131 044524 

9414 043240 042515 052517 020124 

5415 043246 051105 047522 000122 Votes 

9416 043254 051105 047522 020122 §EM45: .ASCIZ /ERROR DURING ‘DOUBLE ERROR'’ (KT & TIMEQUT)/ 


MD-11=CJKDA=B KTF11=AA 
CJKDAB.P11 
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043752 
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046440 
052115 
051105 

0 


020131 


044520 
042516 


020101 


AG MACY11 30A(1052) 


EM46: 


EM47: 


EMSO: 


EM51: 


EMS2: 


EMS3: 


EMS4: 


EM55: 


—E 9 
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ERROR MESSAGES, DATA HEADERS=-TABLES & FORMATS 


eASCI2Z 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


/MFPIT INSTRUCTION PUSHED WRONG DATA/ 


/MTPI INSTRUCTION LOADED WRONG DATA/ 


/STACK NOT PUSHED BY MFPI-MTPI/ 


/KERNEL PAGE ACCESS INSTEAD OF USER: MFPI-MTPI/ 


/WRONG PDR'S REFERENCED WHILE IN RELOCATE MODE/ 


/MFPD INSTRUCTION PUSHED WRONG DATA/ 


/STACK NOT PUSHED BY MFPD-MTPD/ 


/PAR OR PDR CHANGED BY A RESET/ 


SEQ 0108 


MD-11=CJKDA=B KTF11=AA 
CJKDAB.P11 


11=JUN=79 


051523 


051117 
043505 


051101 


042104 
024040 


009124 
0 


051117 
042524 


051117 
042522 


043117 
042455 


024531 


042522 
041517 


AG MACY11 ye et 


11=JUN=79 


F 9 
13:21 PA 


GE 109 
ERROR MESSAGES, DATA HEADERS=TABLES & FORMATS 


EMS6: 


DH1: 


DHe: 


DH3: 


DH7: 


DH10: 


DH11: 


eASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


ASCII 


ASCIZ 


ASCII 


ASCIZ 


/OLD PC 


/OLD PC 


/WROTE 


/ADDRESS 


OLD PSW R6 WAS 


OLD PSW R6 WAS” SRO SR2 


READ 


TESTNO 


/REGISTER=ADDRS 


/AND~ED 


/REGISTR 


/ADDRESS 


OR-ED 


READ 


(OCTAL ) 


-ASCIZ /PSW CHANGED BY AN RTI IN USER MODE/ 


TESTNO ERRORPC/ 


TESTNO ERRORPC/ 


TESTNO ERRORPC/ 


ERRORPC/ 


NUM OF/<CRLF> 


TIMOUTS TESTNO ERRORPC/ 


READ=(BINARY)/<CRLF > 


54321098765435210 TESTNO ERRORPC/ 


SEQ 0109 


MD=-11=CJKDA=8 nate Tie ee MACY11 ghia t 


CJKDAB.P11 


11=JUN= 


024514 


051117 
051101 


051117 
054510 


042104 


032440 


U51117 
051511 
2 


051101 
042522 


041520 


050055 
aad? 


041520 


044523 
051111 


0 
042522 


17 -JUN=-79 


G 9 
15:21 PAGE 110 


ERROR MESSAGES, DATA HEADERS=TABLES & FORMATS 


DH12: 


DH13: 


DH18: 


DH17: 


DH20: 


ASCII 


-ASSI2Z 


ASCII 


-ASCIZ 


ASCII 


ASCIZ 


ASCII 


ASCIZ 


/REGISTR 


WROTE READ READ=(BINARY)/<CRLF> 


/ADDRESS (OCTAL) (OCTAL) 5432109876543210 TESTNO ERRORPC/ 


/READ 


/PAR=PDR 


/CLEARED 


/PHYSICL 


JAPORESS 


/PHYSICL 


/ADDRESS 


TESTNO ERRORPC/ 


PAR-PDR/<CRLF > 


EFFECTD EXPECTD RECEIVD TESTNO ERRORPC/ 


VIRTUAL/<CRLF> 


ADDRFSS KIPAR4 TESTNO ERRORPC/ 


PAR 4 PAR 5/<CRLF> 


VBA VBA PAR 4 PAR S = PSw TESTNO 


ERRORPC / 


SEQ 0110 


H 9 
MD-11=CJKD4=8 KTF11=AA MMU DIAG MACY11 30A(1052) 17=JUN-79 13:21 PAGE 
11=JUN=79 13:10 


CJKDAB.P11 
5585 045114 
5586 045122 
5587 045130 
5588 045136 
5589 045144 
559G 045152 
5591 045160 
5592 045166 
5593 045174 

594 045202 
5595 645207 
596 045214 
5597 045222 
5598 045227 
5599 045234 
5600 045242 
5691 045250 
5602 045256 
5603 045264 
5604 045267 
5605 045274 
5606 045302 
5607 045310 
5608 045316 
5609 045324 
5610 045332 
5611 9045340 
5612 045346 
56135 045354 
5614 0465362 
5615 5366 
5616 045374 
5617 5402 
5618 045410 
5619 045416 
5620 5424 
5621 5432 
5622 045440 
56235 045446 
56024 045454 
5625 045456 
5626 045464 
5627 045472 
5628 045500 
5629 045506 
5630 045514 
5631 045516 
5632 045524 
$633 045532 
5634 045540 
5635 045546 
5636 045554 
5637 045562 
5638 045570 
5639 045576 
5640 045604 


051523 
020040 


020123 


0 
054105 


040502 
0 


051117 
044440 


047522 
020040 


050122 
040527 


042520 


111 


ERROR MESSAGES, DATA HEADERS=TABLES & FORMATS 


DH21: 


DH22: 


DH23: 


DH24: 


DH26: 


DH30: 


DH31: 


ASCII 


-ASCIZ 


ASCII 


ASCIZ 


ASCIZ 


ASCIZ 


ASCIZ 


eASCIZ 


ASCIZ 


/PDR 


/TESTED 


7PDR IN 


7ERROR 


/PDR 


/PDR WAS 


/PDR 4 


/SRO WAS 


/SR2 WAS 


VIRTUAL /<CRLF > 


ADDRESS TESTNO ERRORPC/ 


PDR 


TESTED 


TESTNO 


EXPECTD 


PSW 


EXPECTD 


EXPECTD 


ViRTUAL/ 


ADDRESS TESTNO ERRORPC/ 


ERRORPC/ 


TESTNO ERRORPC/ 


TESTNO ERRORPC/ 
PDR 4 = PSW TESTNO ERRORPC/ 
PDR 4 PSW TESTNO ERRORPC/ 


SEQ 0111 





MD-11=CJKDA=8 KTF11=AA MMU he MACY11 30A(1052) 
11=JUN=79 10 


CJKDAB.P11 


052105 


13: 


16 
047522 
027192 


051117 
0 0 


042120 
0 


050122 
027101 


050122 
020124 


041520 


DH32: 


DH33: 


DH34: 


Dii35: 


DH36: 


DH37: 


17=JUN=79 13: 
ERROR MESSAGES, DATA HEADERS=TABLES & FORMATS 


ASCIZ 


ASCIZ 


ASTIZ 


ASCIZ 


ASCIZ 


ASCII 


eASTIZ 


/V.B.A. 


/V.B.A. 


/V.B.A. 


/V.B.A. 


/SR2 WAS EXPECTD 


27 


KIPDR4 


KIPDR4 


KIPDR4 


KIPDR4 


/FiRST ABORT 


/SRO WAS SR2 WAS 





I 9 
PAGF 112 


SEQ 0112 


SRO WAS SR2 WAS TESTNO ERRORPC/ 


TESTNO ERRORPC/ 


SRO WAS EXPECTD TESTNO ERRORPC/ 


SR2 WAS EXPECTD TESTNO ERRORPC/ 


TESTNO ERRORPC/ 


SECOND ABORT/<CRLF > 


SRO WAS SR2 WAS TESTNO ERRORPC/ 





ahi KTF11=AA MMU DIAG 


AB.P11 


042440 


17=JUN=79 13:10 


030122 


051117 
050130 


051122 


MACY11 30A(1052) 


053440 
031122 


051117 
041505 
0 


053111 
020040 


041520 
041505 
0 


053111 
020040 


040524 
041505 


051117 


DHS): 


DH42: 


DH44: 


DH45: 


DH46: 


17-JUN-79 


eASCIZ 


ASCII 


-ASC1Z 


ASCII 
ASCII 


ASCII 


ASCII 


eASCIZ 


ASCII 


-ASLIZ 


J §g 
13:21 PAGE 113 
ERROR MESSAGES, DATA HEADERS=TABLES & FORMATS 


-ASCIZ /SRO WAS SR2 WAS TESTNO ERRORPC/ 


/PSW WAS R6 WAS TESTNO ERRORPC/ 
/EXPECTED RECEIVED/<CRLF> 
/SRO SR2 SRO WAS SR2 WAS TESTNO ERRORPC/ 


/EXPECTED:/<CRLF> 
/PSW PC SRO 


4170017 =(3$+4) 020147 


/RECEIVED:/<CRLF> 
/PSW PC SRO 


/DATA DATA/<CRLF > 


/EXPECTD RECEIVD TESTNO 


SR2/<CRLF > 


(3$)/<CRLF> 


SR2 TESTNO ERRORPC/ 


ERRORPC/ 


SEQ 0115 


MD-711-CJKDA=B KTF11=AA MMU DIAG MACY11 y bgt 
CJKDAB.P11 11=JUN=79 


13:10 


047124 
051122 


051117 


044523 
051101 


042522 


051117 


001264 


001262 
001262 
001116 
001304 
000000 
001164 
000000 
001166 
001116 
001116 


001174 
001116 


001172 
000000 


11=JUN=79 13:21 


K 9 
PAGE 1 


ERROR MESSAGES, DATA HEADERS~TABLES- & FORMATS 


DH50: 


DH5S1: 


DHS2: 


DH56: 


DT1: 
DT2: 


DT3: 
DT?7: 


DT10: 
DT11: 
DT12: 


D113: 
D116: 


DT17: 


eASCIZ 


-ASCIZ 


ASCII 


ASCIZ 


ASCIZ 


/TESTNO ERRORPC/ 


/SRO WAS SR2 WAS TESTNO ERRORPC/ 


/PHYSICL PAR 4/<CRLF> 


/ADDRESS V.B.A. PAR 4 SRO WAS SR2 WAS PSW TESTNO ERRORPC/ 


/PSW WAS EXPECTD TESTNC ERRORPC/ 


TRAPPC , TRAPPS ,WASR6, TESTNO, SERRPC ,0 
TRAPPC , TRAPPS ,WASR6,WASSRO ,WASSR2, TESTNO, SERRPC ,0 


$REGO,$REG1, TESTNO, $ERRPC ,0 

$REGO, TESTNO, S$ERRPC ,0 

ANDADR , ORADR , TONUM, TESTNO, SERRPC ,0 
$REGO,$REG1,$REG1, TESTNO, SERRPC 0 
$REGO, SREG1 , SREGZ, $REG2, TESTNO, $ERRPC ,0 


$REGO, TESTNO, SERRPC ,0 
$REGO, $REG1.$REGS,SREG2, TESTNO, SERRPC ,0 


PBALO, VIRT1,$REG4, TESTNO, SERRPC ,0 


SEQ 0114 


9 
MD-11=CJKDA=8 KTF11=-AA MMU DIAG MACY11 30A(1052) 17=JUN-79 13:21 PAGE 115 
CJKDAB.P11 11=JUN=79 13:10 ERROR MESSAGES, DATA HEADERS=TABLES & FORMATS SEQ 0115 
047424 001312 001306 001310 DT20: .WORD PBALO,VIRT1,VIRT2,$REG4,$REG5,$TMPO, TESTNO, $ERRPC,O 
5810 047432 001172 001174 001776 
59811 047440 001262 001116 000000 
9812 047446 001174 001170 001262 DT21: #.WORD $REG5,$REG3,TESTNO,SERRPC,0 


74 Q01170 Di22: .WORD $REGO,$REG5S,$REG3,TESTNO, $ERRPC,0 
63 001116 DT23: .WORD $REGS,TESTNO,SERRPC,0 

1164 001262 DT24: .WORD $REG2,$REG1,TESTNO,$ERRPC,0 

9820 047516 001166 001176 001262 DT26: .WORD $REG2,$TMPO,TESTNO,$ERRPC,0 

5821 000000 


9822 047530 001272 001170 001166 DT30: .WORD wASSRO,$REG3,$REG2,$TMPO, TESTNO,$ERRPC,0 
598235 047536 001176 001262 001116 


000000 
5825 047546 001274 001172 001166 DT31:  .WORD WASSR2,$REG4,$REG2,$TMPO, TESTNO,SERRPC,0 
5826 047554 Boe 001262 001116 


5828 047564 001162 001172 001272 DT32:  .WORD $REGO,$REG4,WASSRO,WASSR2,TESTNO,$ERRPC,0 
5829 Re nens 001274 001262 001116 


30 
9831 047602 001162 001172 001262 DT33: .WORD $REGO,$REG4,TESTNO,$ERRPC,0 
5832 047610 001116 000000 
9835 047614 001162 001172 001272 DT34: .WORD $REGO,$REG4,WASSRO,$REG2,TESTNO, $SERRPC 0 
59834 047622 001166 001262 001116 


9836 047632 001162 001172 001274 DT35: .WORD $REGO,$REG4,WASSR2,$REG3,TESTNO,$ERRPC,0 
5837 047640 Ronan 001262 001116 


000 | 
59839 047650 001274 001164 001262 DT36: .WORD WASSR2,$REG1,TESTNO,$SERRPC,0 
9840 047656 001116 000000 

9841 047662 001176 001202 001272 DT37: .WORD $TMPO,$TMP2,WASSRO,WASSR2,TESTNO, SERRPC,0 
59842 047670 001274 001262 001116 


5844 047700 001272 001274 001262 DT40: .WORD WASSRO,WASSR2,TESTNO,$ERRPC,0 
706 000000 


001164 001166 001262 DT42: .WORD $REG1,$REG2,TESTNO,SERRPC,0 
9847 047720 001116 
9848 047724 001162 001164 001272 DT44: .WORD $REGO,$REG1,WASSRO,WASSR2,TESTNO, SERRPC 0 
9 047732 001274 001262 001116 


1164 001170 001272 DT45: .WORD $REG1,$REG3.WASSRO,WASSR2, TESTNO, $ERRPC,9 
1274 001262 001116 


5853 047756 000000 

9854 047760 001162 001164 001262 DI46:  .WORD $REGO,$REG1,TESTNO, SERRPC,0 
9855 047766 001116 000000 

9856 047772 001262 001116 000000 DI50: .WORD TESTNO,$ERRPC,0 

5857 05 001272 001274 001262 DT51:  .WORD WASSRO,WASSR2,TESTNO, SERRPC,0 
59858 05 001116 meres 

5859 050012 001312 001172 DT52:  .WORD PBALO,VIRT1,$REG4,WASSRO,WASSR2,$TMPO, TESTNO, SERRPC .0 
5860 050020 001272 00127 4 001176 

9861 050026 001262 001116 000000 

9862 050054 001164 001166 001262 DT56: .WORD $REG1,$REG2,TESTNO,$ERRPC,0 
ear 050042 001116 000000 


M9 
13:21 PAGE 116 


MD-11-CJKDA=B8 KTF11-AA = DIAG MACY11 30A(1052) _11=JUN=79 
CJXDAB.P11 11=JUN-79 13:10 ERROR MESSAGES, DATA HEADERS=TABLES & FORMATS SEQ 0116 
5865 050046 000 000 000 DF: -BYTE 0,0,0,0,0 
5866 050051 000 000 
3867 050053 000 000 000 DFe: -BYTE 0,0,0,0,0,0,0 
5868 050056 00C 000 000 
5869 050061 000 
5870 050062 000 000 000 DF3: -BYTE 0,0,0,0 
59877 050065 000 
3872 050066 000 000 000 DF7: -BYTE 0,0, 
5875 050071 000 000 001 DF10: .BYTE 0,0,1,0,0 
39874 050074 000 000 
5875 050076 000 000 002 DF11. .BYTE 0,0,2,0,0 
5876 050101 000 000 
5877 050103 000 000 O00 DF1i2: .BYTE 0,0,0,2,0,0 
5878 0501 002 000 000 
5879 050111 000 000 000 DF15: .BYTE 0,0,0 
3880 050114 000 000 000 DF16. .BYTE 0,0,0,0,0,0 
5881 050117 000 000 000 
5882 050122 003 000 000 DFI7: .BYTE 3,0,0,0,0 
5883 050125 000 000 
5884 050127 003 000 000 DF20: .BYTE 3,0,0,0,0.0,0.0 
5885 050132 000 000 000 
9886 0501355 000 000 
5887 050137 000 000 000 DF21: .BYTE 0,0,0,0 
3888 050142 000 
5889 050143 000 000 000 DF22: .BYTE 0,0,0,0,0 
5890 050146 000 000 
5891 050150 000 000 000 DF25: .BYTE 0,0,0 
5892 050153 000 000 000 DF24: .BYTE 0,0,0,0 
58935 050156 000 
5894 050157 000 000 000 DF30: .BYTE 0,0.0.0,0.0 
5895 050162 000 000 000 
5896 050165 000 000 O00 DF46: .BYTE 0,0,0,0 
5897 050170 000 
5898 050171 000 000 DF50: .BYTE 0,0 
5899 050173 000 000 000 DF51: .BYTE 0,0,0,0 
2900 050176 000 
5901 050177 003 000 000 DF52: .BYTE 3,0,0,0.0,0.,0,0 
9902 050262 009 000 000 
5903 050205 000 000 
5904 050207 000 000 000 DF56: .BYTE 0,0,0.0 
9905 050212 000 
5906 
5907 000001 . END 


MD=11=CJKDA-B KTF11-AA MMU DIAG MACY11? 30A(1052) 11=-JUN=79 13:21 PAGE 118 
CJKDAB.P11 11=JUN=79 13:10 SYMBOL T SEQ 0117 
ABASE = 000000 BITO = 000001 DF 46 050165 DT23 047474 EM44 043210 
ACDW1 = 000000 BITOO = DF50 050171 DT24 047504 EM45 043254 
ACDW2 = 000000 BITO1 = 000002 DF51 050173 DT26 047516 EM46 043327 
ACPUOP= 000000 BITO2 = 000004 DF52 050177 13 047272 EM47 043372 
= 000000 BITOS = 0 DF 56 050207 DT30 047530 EMS 41141 
ADDW1 = 000000 BITO4 = 0 F 050066 DT31 047546 EMS0 34 
ADDW10= 000000 BITOS = 000040 DH1 044031 DT32 047564 EM51 043473 
ADDW11= 000000 BIT06 = 000100 DH10 044261 D133 047602 EMS2 043551 
ADDW12= 000000 BITO7 = 000200 DH11 044361 DT 34 047614 EM53 043627 
ADDW13= 000000 BITO8 = 090400 DH12 044501 D135 047632 EM54 043672 
ADDW14= 000000 BITO9 = G01000 DH13 044641 D136 047650 EM55 
ADDW15= 000000 IT7_ = 00000 DH16 044671 DT37 047662 EMS6 3766 
ADDW2 = 000000 BIT10 = 002000 DH17 044771 DT40 47700 E 041214 
ADDW3 = 000000 BIT11 = 004 DH2 044101 DT42 047712 EM7 1261 
= 000000 BIT12 = 010000 DH20 045061 DT44 047724 ERRTYP 034670 
ADDWS = 000000 BIT13 = 0200 DH21 045207 DT45 047742 ERRVEC= 
ADDW6 = 000000 BIT14 = 040000 DH22 045267 DT46 047760 035466 
ADDW7 = 000000 BIT15 = DH25 045366 DT50 047772 GTSWR = 104407 
= 000000 BIT2 = 000004 DH24 . 045416 DT51 050000 T = 000011 
= 000000 BITS = 000010 DH26 045456 DT52 050012 1OTVEC= 000020 
ADEVCT= 000000 BiT4 = 000020 DH3 044171 DT56 50054 KERSTK= 001100 
ADEVM = 000000 BITS = DH30 045516 DT7 047304 KIPARO= 172340 
AENV = 000000 BIT6 = 000100 DH31 045576 EMTVEC= 000030 KIPAR1= 172342 
= 000000 BIT? = 000200 DH32 045656 1 040740 KIPAR2= 172344 
AFATAL= 000000 BIT8 = C900400 DH35 045736 ER.10 041317 KIPAR3= 172346 
= 000000 BIT9 = 00100 DH34 045776 EM11 041363 KIPAR4= 172350 
AMADR2= 000000 BPTVEC= 000014 DH35 046056 EM12 041423 KIPAR5= 172352 
AMADR3= 000000 CKSWR = 10441 DH36 046136 EM13 041472 KIPAR6= 172554 
AMADR4= 000000 CMPREG 035274 DH37 046176 EM14 041527 KIPAR7= 172356 
= 000000 CMSG 36661 DH40 046313 EM15 041562 KIPDRO= 172300 
AMAMS2= 000000 CNTRLC 036602 DH42 046553 EM16 041636 KIPDR1= 172302 
AMAMS3= 000000 C = 000015 DH44 046413 EM17 041700 KIPDR2= 172304 
AMAMS4= 000000 CRLF = 200 DH45 046525 EM2 041000 KIPDR3= 172306 
= 000000 DALTB1 027006 DH46 046722 EM20 041736 KIPDR4= 172310 
AMSGLG= 000000 DALTB2 027042 DH50 046777 EM21 04 KIPDR5= 172312 
AMSGTY= 000000 DALTBS 027354 DH51 047017 EM22 042045 KIPDR6= 172314 
AMTYP1= 000000 DALTB4 027410 DH52 047057 EM25 042104 KIPDR7= 172316 
AMTYP2= 000000 DDISP = 177570 DH56 047175 EM24 042150 KSP = 
AMTYP35= 000000 050046 DH7 044231 EM25 042210 LF = 000012 
AMTYP4= 000000 DF 10 50071 DISPLA 001142 EM26 042253 L 020514 
ANDADR 001300 DF11 050076 DISPRE 000174 EM27 042323 MGMERR 2150 
APASS = 000000 DF12 050103 DSWR = 177570 E 041047 MGMFLG 002152 
APRIOR= 000000 DF13 050111 DT1 047236 EM30 042372 MMVEC = 0 
APTCSU= 000040 DF 16 050114 DT10 047314 EM351 042444 DR 1302 
APTENV= 000001 DF17 050122 DT11 047330 EM32 042511 PBAHI 001314 
APTSIZ= 000200 DF2 50053 DT12 047344 EM33 042572 PBALO 
APTSPO= 000100 DF 20 050127 DT13 047362 EM354 042655 PDRTB1 027024 
ASWREG= 000000 DF 21 050137 DT16 047372 EM37 042733 PDRTB2 027056 
ATESTN= 000000 DF22 050143 DT17 047410 EM4 041106 PDRTBS 027372 
AUNIT = DF 25 050150 DT2 047252 EM4O 043000 PDRTB4 027424 
AUSWR = 000000 DF 24 050153 DT20 047424 EM41 043047 PIRQ = 177772 
AVECT1= 000000 DF 3 050062 DT21 047446 EM42 043102 PIRQVE= 000240 


AVECT2= 000000 DF 30 050157 DT 22 047460 EM45 045141 PRO = 000000 


B 10 
MD-11=CJKDA=B KTF11=AA MMU oo MACY11 30A(1052) 1i=JUN=79 13:21 PAGE 119 


CJKDAB.P11 11=JUN=79 13:10 SYMBOL TABLE SEQ 0118 
PRI = 0 Sw8 == 000 TST46 = 3470 SCNTLC 036540 $SMSGTY 001226 
PR2 = 000100 Sw9 = 001000 TST47 = 0.333574 SCNTLG 036552 SMSWR 036557 
PRS = 000140 TBIT = 0 TST5 021124 SCNTLU 036545 $MTYP1 001257 
PRG = 200 TBITPS 001276 TST6 021262 001254 SMXCNT 034430 
PRS = 000240 TBITVE= 00001 TST? 021414 SCRLF 00122 $NULL_ 001154 
PR6 = 300 TESTNO 001262 TYPBN = 104406 SDBLK 040200 $NWTST= 1 
PR7 = 340 TIMEON 020472 TYPDS = 104405 $DB20 8040304 SOCNT 057760 
PS = 177776 TIMERR 002076 TYPE = 104401 SDEVCT 001236 SOCTVL 040406 
PSW = 177776 TIMFLG 002100 TYPOC = 104402 $SDOAGN 034102 037762 
PWRMSG 76 TIMOFF 033636 TYPON = 104404 $SDTBL 040170 SOVER 034414 
PWRVE C= TKVEC = 0 TYPOS = 104403 SENDAD 034072 $PASS 001234 
RDCHR = 104411 TOF F 035114 UIPARO= 177640 SENDCT 033714 SPASTM 000212 
RDLIN = 104412 TON 35150 UIPAR1= 177642 SENULL 034146 5 
RESREG= 104414 T 01304 UIPAR2= 177644 SENV 001246 SPWRDN 040512 
RESTRT 020472 TPVEC = 000064 UIPAR3= 177646 SENVM 3 001247 SPWRMG 040646 
RESVEC= 0 TRAPPC 001266 UIPAR4= 177650 $EOP 033660 SPWRUP 040564 
=%000006 TRAPPS 001270 UIPARS5= 177652 SEOPCT 033706 $QUES 00 
R7 =%000007 TRAPVE= 000034 UIPAR6= 177654 SERFLG 001105 $SRDCHR 036152 
SAVREG= 104 TRIVEC= 000014 UIPAR7= 177656 SERMAX 001115 $SRDLIN 036252 
SETREG 035202 TST] 020576 UIPDRO= 177600 SERROR 054432 $RDSZ = 0 
SRO = 177572 TST10 21546 UIPDR1= 177602 SERRPC 001116 $REGAD 001160 
SRI = 177574 TST11 021700 UIPDR2= 177604 SERRTB 001316 $REGO 001162 
SR2 = 177576 TST12 022032 UIPDR3= 177606 SERTTL 001112 $REG1 001164 
SR3 = 172516 TST15 =—022174 UIPDR4= 177610 SESCAP 001214 $REG2 001166 
STACK = 1 TST14 =022232 UIPDR5= 177612 SETABL 001246 $REGS 001170 
START TSTIS §=©022302 UIPDR6= 177614 SETEND 001262 $REG4 001172 
STKLMT= 177774 TST16 =©022420 UIPDR7= 177616 $FATAL 001230 $REGS 001174 
001140 TST17 =—.022542 USESTK= 000700 $FFLG 037460 SRESRE 040246 
SWREG 000176 TST2 USP  =%000006 SFILLC 001156 SRTINAD 034142 
SWO = 1 TST20 022672 VIRT1 0013506 SFILLS 001155 SRTRN 034136 
SWwOO = 000001 TST21 025022 VIRT2 001310 $GDADR 001120 $SSAVRE 040210 
SwO1 = 000002 TST22 023226 WASR6 001264 S$GDDAT 001124 SSAVR6 040674 
SWO2 = TST23 = 023376 WASSRO 001272 $GET42 034044 $SCOFE 034152 
SwOS = 000010 TST24 024126 WASSR2 001274 $GTSWR 035660 $SE TUP= 1 
SWO4 = 000020 TST25 024516 WBIT = 000100 $HD = 000000 $SSTUP = 177777 
SwOS = TST26 §=©025234 $APTHD 000204 $SHIBTS 000204 SSVLAD 0343560 
SWwO6 = 000100 TST27 =025430 $ATYC 037240 SICNT 001104 $SVPC = 000204 
SwO7 = 000200 TST3 020734 $ATY1 037214 $ILLUP 040670 $SWR = 177400 
SWwO8 = TST30 025636 $ATY3 037222 S$INTAG 001135 $SWREG 001250 
SWO9 = 001000 TST31 00 $ATY4 037232 SITEMB 001114 $ 7 
SWI = TST32 026300 $AUTOB 001134 $LF 001224 STBIT 034144 
SW10 = 002000 TST33 =©026510 $BDADR 001122 SLFLG 037457 STESTIN 001232 
SW11 = TST34 027072 $BDDAT 001126 $LOOP 034140 STIMES 001212 
SWwi2 = 010000 TST35 §=6027440 $BELL 001216 $LPADR 001106 $TKB 001146 
SW15 = 020000 TST36 27632 BIN 037534 $LPERR 001110 $TKS 001144 
SW14 = TST37 §=—©0302.:34 $CHARC 037210 $MADR1 001260 STMPO 001176 
SW15 = 100000 TST4 021056 $CKSWR 035610 SMAIL 001226 STMP1 001200 
SWw2 = TST40 §=—030422 $CLR.T 034062 SMAMS1 001256 STIMP2 001202 
SW3 = (000010 TST41 030504 SCMTAG 001100 SMBADR 000206 STMP3 = =001204 
SW4 = 000020 TST42 030654 M1 = 000006 SMFLG 037456 STMP4 001206 
SWS = TST43) = 03.1176 $CM2 = 000014 SMNEW 036570 STMP5 001210 
SWw6 = 000100 TST44 032044 $CM3 = 000006 $MSGAD 001242 $IN = Q00050 
SW7 == 000200 TST45 = 032724 $(M4 = 000006 $SMSGLG 001244 $TPB 001152 


C 10 
MD-11~CJKDA=B KTF11=AA 9 1% ~~ MACY11 30A(1052) 1i*JUN=79 13:21 PAGE 120 


CJKDAB.P11 11=JUN-79 13:10 SYMBOL TABLE SEQ 0119 
STPFLG 001157 STRPAD 040460 STYPDS 057764 $TYPON 037576 $XTSTR 054164 

STPS 001150 STSTM 000210 $TYPE 036732 $TYPOS 037536 SOFILL 0357761 

STRAP 040424 STSTNM 001102 STYPEC 0357144 $SUNIT 001240 ‘ = 050213 

BTRAP2 040446 STTYIN 036530 $TYPEX 037212 SUNITM 000214 -$X = 000204 

$STRP = 000015 STYPBN 037462 $TYPOC 037562 $USWR §=001252 


- ABS. 050215 000 


ERRORS DETECTED: 0 


MULE : CJKDAB ,MULE : CJKDAB. SEQ/SOL /NL : TOC=C JKDAB.P11 
RUN-TIME: 102 58 1 SECONDS 
RUN-TIME RATIO: 527/162=3.2 
CORE USED: 32K (63 PAGES) 


